diff options
| -rw-r--r-- | scsh-process.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/scsh-process.scm b/scsh-process.scm index b568e94..fde9186 100644 --- a/scsh-process.scm +++ b/scsh-process.scm @@ -115,7 +115,11 @@ ;; Documented under http://www.scsh.net/docu/html/man-Z-H-3.html#node_sec_2.4.2 (define (run/collecting* fds thunk) - (let* ((temp-files (map (lambda (fd) (open-input-file (create-temporary-file))) + (let* ((temp-files (map (lambda (fd) + (let* ((file-name (create-temporary-file)) + (port (open-input-file file-name))) + (delete-file file-name) + port)) fds)) (conns (map (lambda (from-fd temp-file) (list from-fd (port->fileno temp-file))) |