From 93c713f8c6b0f2c0032e7a80175646607eb6d762 Mon Sep 17 00:00:00 2001
From: Peter Bex <peter@more-magic.net>
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