summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--scsh-process.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/scsh-process.scm b/scsh-process.scm
index b9ca087..b568e94 100644
--- a/scsh-process.scm
+++ b/scsh-process.scm
@@ -157,7 +157,10 @@
(define (run/strings* thunk)
(read-lines (run/port* thunk)))
(define (run/sexp* thunk)
- (read (run/port* thunk)))
+ (let* ((p (run/port* thunk))
+ (res (read p)))
+ (close-input-port p)
+ res))
(define (run/sexps* thunk)
(read-file (run/port* thunk)))