summaryrefslogtreecommitdiff
path: root/scsh-process.scm
diff options
context:
space:
mode:
Diffstat (limited to 'scsh-process.scm')
-rw-r--r--scsh-process.scm14
1 files changed, 7 insertions, 7 deletions
diff --git a/scsh-process.scm b/scsh-process.scm
index 538c82d..7debdee 100644
--- a/scsh-process.scm
+++ b/scsh-process.scm
@@ -108,13 +108,13 @@
(abort exn))
(receive (pid ok? status)
(posix-process-wait (and p (scsh-process-pid p)) nohang)
- (if (zero? pid)
- (begin (when p
- (scsh-process-exit-status-set! p status)
- (scsh-process-ok?-set! p ok?))
- (remove-scsh-pending-process! pid)
- (values status ok? pid))
- (values #f #f #f))))))))
+ (cond
+ ((zero? pid) (values #f #f #f))
+ (else (when p
+ (scsh-process-exit-status-set! p status)
+ (scsh-process-ok?-set! p ok?))
+ (remove-scsh-pending-process! pid)
+ (values status ok? pid)))))))))
(set-signal-handler!
signal/chld