mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 05:39:18 +02:00
fix regression from shadowed bindings in process->output+error+status
This commit is contained in:
parent
4bd4f08b59
commit
3fc9c22245
1 changed files with 3 additions and 3 deletions
|
@ -205,12 +205,12 @@
|
|||
command
|
||||
(lambda (pid in out err)
|
||||
(close-output-port in)
|
||||
(let* ((out (port->string out))
|
||||
(err (port->string err))
|
||||
(let* ((outs (port->string out))
|
||||
(errs (port->string err))
|
||||
(res (waitpid pid 0)))
|
||||
(close-input-port out)
|
||||
(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:
|
||||
;;> the accumulated output as a string, the error output as a string.
|
||||
|
|
Loading…
Add table
Reference in a new issue