andrius
/
gash
mirror of https://git.savannah.gnu.org/git/gash.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

WIP: status:exit-val

This commit is contained in:
Rutger van Beusekom 2018-07-02 20:05:50 +02:00
parent 054db72e94
commit 4ef3a941aa
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gash/gash.scm
View File

@ -326,7 +326,7 @@ the GNU Public License, see COPYING for the copyleft.
((boolean? o) (list (if o 0 1)))
(else (list 0)))) ; some commands return a string?
job))
(status (or (find (negate zero?) stati) 0)))
(status (or (find (negate zero?) (map status:exit-val stati)) 0)))
(set! global-variables (assoc-set! global-variables '$pipe? stati))
(set! global-variables (assoc-set! global-variables '? status))
(set! global-variables (assoc-set! global-variables 'fubar status))