From 93c713f8c6b0f2c0032e7a80175646607eb6d762 Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Sat, 6 Oct 2012 17:58:30 +0200 Subject: Add back the nohang option to the process-wait override --- scsh-process.scm | 4 ++-- 1 file 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) -- cgit v1.2.3