summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPeter Bex <peter@more-magic.net>2012-10-06 17:58:30 +0200
committerPeter Bex <peter@more-magic.net>2012-10-06 17:58:30 +0200
commit93c713f8c6b0f2c0032e7a80175646607eb6d762 (patch)
treeb3c24161f121afaac3c125d5f249066066cb7a7f
parentfda29344560d935cedb558983d285f4d1d0c1a80 (diff)
downloadscsh-process-93c713f8c6b0f2c0032e7a80175646607eb6d762.tar.gz
Add back the nohang option to the process-wait override
-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)