pipe: Connect stderr too.

* gash/pipe.scm (spawn): Connect stderr too.
2018-11-01 07:26:07 +01:00 · 2018-11-01 07:26:07 +01:00 · 6175b07c7e
parent aafbc96dbd
commit 6175b07c7e
1 changed files with 2 additions and 1 deletions
--- a/gash/pipe.scm
+++ b/gash/pipe.scm
@ -72,7 +72,8 @@
                   (set-current-input-port (car input)))
                 (when (pair? w)
                   (close-port (current-output-port))
-                   (set-current-output-port (car w)))
+                   (set-current-output-port (car w))
+                   (set-current-error-port (cadr w)))
                 (let ((status (if (thunk? command) (command)
                                   (command input w))))
                   (exit (cond ((number? status) status)