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