Ensure port is closed before returning from run/sexp*; this would hopefull ensure processes don't hang when they keep writing while the pipe buffer is full. Instead, it would kill the process with sigpipe

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)))