summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--scsh-process.scm2
1 files changed, 2 insertions, 0 deletions
diff --git a/scsh-process.scm b/scsh-process.scm
index a6d6e0b..af3586e 100644
--- a/scsh-process.scm
+++ b/scsh-process.scm
@@ -364,6 +364,7 @@
(lambda ()
(file-close in)
(duplicate-fileno out 1)
+ (file-close out)
(with-output-to-port (open-output-file* 1) thunk)))))
(file-close out)
(open-input-file* in)))
@@ -377,6 +378,7 @@
perm/irgrp perm/iwgrp
perm/iroth perm/iwoth))))
(duplicate-fileno fd 1)
+ (file-close fd)
(with-output-to-port (open-output-file* 1) thunk)))))
temp-file))