diff options
author | Peter Bex <peter@more-magic.net> | 2012-10-06 17:58:30 +0200 |
---|---|---|
committer | Peter Bex <peter@more-magic.net> | 2012-10-06 17:58:30 +0200 |
commit | 93c713f8c6b0f2c0032e7a80175646607eb6d762 (patch) | |
tree | b3c24161f121afaac3c125d5f249066066cb7a7f | |
parent | fda29344560d935cedb558983d285f4d1d0c1a80 (diff) | |
download | scsh-process-93c713f8c6b0f2c0032e7a80175646607eb6d762.tar.gz |
Add back the nohang option to the process-wait override
-rw-r--r-- | scsh-process.scm | 4 |
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) |