Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Make (shell) in (chibi shell) return exit status of last command.

Browse source
This commit is contained in:
Lockywolf 2022-08-24 13:17:37 +08:00
parent f367cb86e2
commit 6bb62979fd
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/chibi/shell.scm
View file

@ -494,10 +494,11 @@
(lambda () #f) (lambda () #f)
(lambda () #f))))) (lambda () #f)))))
;;> Returns the exit status of the last command in the pipeline.
(define-syntax shell (define-syntax shell
(syntax-rules () (syntax-rules ()
((shell cmd ...) ((shell cmd ...)
(for-each shell-wait (shell& cmd ...))))) (map shell-wait (shell& cmd ...)))))
(define-syntax shell->string (define-syntax shell->string
(syntax-rules () (syntax-rules ()