diff options
| author | Peter Bex <peter@more-magic.net> | 2025-07-02 14:41:53 +0200 |
|---|---|---|
| committer | Peter Bex <peter@more-magic.net> | 2025-07-02 14:41:53 +0200 |
| commit | 4a9adfd4591ca5de96b1294cd47d12c4efc22535 (patch) | |
| tree | 18a60707a359014633220fa9b38d6881b7e87310 /scsh-process.scm | |
| parent | 5d2659453493d7a1de7b80257763c72236c4008f (diff) | |
| download | scsh-process-4a9adfd4591ca5de96b1294cd47d12c4efc22535.tar.gz | |
Fix cleanup handling in wait for processes forked without scsh-process1.7.1
Similar to the C5 code, here we assumed that proc+condition would be
true if the pid-or-process argument was a raw pid number, as taken
from the table maintained by scsh-process.
Unfortunately, this assumption only holds when the process would've
been forked using "fork" from the scsh-process egg. If one forked
with the "core" fork from CHICKEN itself, both p and pending-before
would be false, which would lead to a "(car) bad argument type: #f"
error.
Reported by Matthew Welland.
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 |