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.
2018-11-25 20:53:06 -05:00 · 2018-11-25 20:53:06 -05:00 · 77f3113fd0
parent 8c061471d3
commit 77f3113fd0
1 changed files with 1 additions and 1 deletions
--- a/geesh/shell.scm
+++ b/geesh/shell.scm
@ -355,7 +355,7 @@ of each thunk sent to the input of the next thunk."
  (set-status! 0)
  (let loop ((cases cases))
    (match cases
-      (() #t)
+      (() (set-status! 0))
      (((#t thunk))
       (thunk))
      (((test-thunk thunk) . tail)