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

fix regression from shadowed bindings in process->output+error+status

Browse source
This commit is contained in:
Alex Shinn 2021-04-09 23:09:53 +09:00
parent 4bd4f08b59
commit 3fc9c22245
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/chibi/process.scm
View file

@ -205,12 +205,12 @@
command command
(lambda (pid in out err) (lambda (pid in out err)
(close-output-port in) (close-output-port in)
(let* ((out (port->string out)) (let* ((outs (port->string out))
(err (port->string err)) (errs (port->string err))
(res (waitpid pid 0))) (res (waitpid pid 0)))
(close-input-port out) (close-input-port out)
(close-input-port err) (close-input-port err)
(list out err (cadr res)))))) (list outs errs (cadr res))))))
;;> Utility to run \var{command} and return a list of two values: ;;> Utility to run \var{command} and return a list of two values:
;;> the accumulated output as a string, the error output as a string. ;;> the accumulated output as a string, the error output as a string.