Commits

Peter Bex committed 8125868

Add back the nohang option to the process-wait override

Comments (0)

Files changed (1)

 
 (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))
                               (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)