diff options
| -rw-r--r-- | scsh-process.scm | 2 |
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)) |