diff options
| author | Peter Bex <peter@more-magic.net> | 2012-10-02 17:34:48 +0200 |
|---|---|---|
| committer | Peter Bex <peter@more-magic.net> | 2012-10-02 17:34:48 +0200 |
| commit | 9e76b49621308e19f93b627d6fdddeb29f466f39 (patch) | |
| tree | 709e18239bace9838d98ddf5b432446dec0c8693 | |
| parent | 5aab937646bebb4998491def71f0653480a286f4 (diff) | |
| download | scsh-process-9e76b49621308e19f93b627d6fdddeb29f466f39.tar.gz | |
fork/pipe returns #f in the child, not 0
| -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 600f7ab..b9ca087 100644 --- a/scsh-process.scm +++ b/scsh-process.scm @@ -88,7 +88,7 @@ ;; Not needed anymore after duplication is complete. (file-close (cadr p))) pipe-pairs from-fds) - (if thunk (run-final-thunk thunk) pid)) + (if thunk (run-final-thunk thunk) #f)) (begin ; Parent (for-each (lambda (p to-fd) ;; Close sending end in parent. |