Set status to 0 when all sh-cond tests fail
* geesh/shell.scm (sh:cond): If no body thunk is called, set the status to 0.
This commit is contained in:
parent
8c061471d3
commit
77f3113fd0
|
@ -355,7 +355,7 @@ of each thunk sent to the input of the next thunk."
|
||||||
(set-status! 0)
|
(set-status! 0)
|
||||||
(let loop ((cases cases))
|
(let loop ((cases cases))
|
||||||
(match cases
|
(match cases
|
||||||
(() #t)
|
(() (set-status! 0))
|
||||||
(((#t thunk))
|
(((#t thunk))
|
||||||
(thunk))
|
(thunk))
|
||||||
(((test-thunk thunk) . tail)
|
(((test-thunk thunk) . tail)
|
||||||
|
|
Loading…
Reference in New Issue