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