Do not clobber status before 'cond' expressions.

This spurious status reset must have been an attempt to make sure that
when no branch is taken, the status ends up as zero.  It is not
necessary and causes problems when trying to branch based on the value
of '$?'.

* geesh/shell.scm (sh:cond): Remove spurious 'set-status!'.
This commit is contained in:
Timothy Sample 2019-01-03 15:34:45 -05:00
parent ae769985be
commit f4dd0feb77
1 changed files with 0 additions and 1 deletions

View File

@ -377,7 +377,6 @@ of each thunk sent to the input of the next thunk."
(loop tail))))))
(define (sh:cond . cases)
(set-status! 0)
(let loop ((cases cases))
(match cases
(() (set-status! 0))