summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--scsh-process.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/scsh-process.scm b/scsh-process.scm
index 1fa12d9..46fba8d 100644
--- a/scsh-process.scm
+++ b/scsh-process.scm
@@ -79,7 +79,7 @@
(let ((posix-process-wait process-wait))
(set! process-wait
- (lambda (#!optional pid-or-process)
+ (lambda (#!optional pid-or-process nohang)
(unless (or (not pid-or-process)
(scsh-process? pid-or-process)
(number? pid-or-process))
@@ -101,7 +101,7 @@
(scsh-process-exit-status p))
(abort exn))
(receive (pid ok? status)
- (posix-process-wait (and p (scsh-process-pid p)))
+ (posix-process-wait (and p (scsh-process-pid p)) nohang)
(unless (zero? pid)
(when p
(scsh-process-exit-status-set! p status)