diff options
Diffstat (limited to 'scsh-process.scm')
| -rw-r--r-- | scsh-process.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/scsh-process.scm b/scsh-process.scm index bcc6dbd..a438aa3 100644 --- a/scsh-process.scm +++ b/scsh-process.scm @@ -157,10 +157,11 @@ (process-id pid-or-process))))) (proc (if (process? pid-or-process) pid-or-process - (car proc+condition)))) + (and proc+condition (car proc+condition))))) (when proc+condition (mutex-unlock! m (cdr proc+condition))) (if (or (number? pid-or-process) + (not proc) (not (process-exit-status proc))) (lp) ; could be forcibly unblocked (begin |