diff options
| author | Peter Bex <peter@more-magic.net> | 2012-10-01 18:33:26 +0100 |
|---|---|---|
| committer | Peter Bex <peter@more-magic.net> | 2012-10-01 18:33:26 +0100 |
| commit | 683c1e32c96c657b35468c947a4445709ff08576 (patch) | |
| tree | df762233904c0c03389f8c57246ae083e5874d78 /scsh-process.scm | |
| parent | ae6f4ea76524c69aa701999ab13278193695432a (diff) | |
| download | scsh-process-683c1e32c96c657b35468c947a4445709ff08576.tar.gz | |
Mistake: the fork should automatically exit, the user shouldn't need to do this
Diffstat (limited to 'scsh-process.scm')
| -rw-r--r-- | scsh-process.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/scsh-process.scm b/scsh-process.scm index 46a107a..96a3bc7 100644 --- a/scsh-process.scm +++ b/scsh-process.scm @@ -79,7 +79,7 @@ ;; Not needed anymore after duplication is complete. (file-close (cadr p))) pipe-pairs from-fds) - (if thunk (thunk) pid)) + (if thunk (begin (thunk) (exit 0)) pid)) (begin ; Parent (for-each (lambda (p to-fd) ;; Close sending end in parent. |