From 683c1e32c96c657b35468c947a4445709ff08576 Mon Sep 17 00:00:00 2001
From: Peter Bex <peter@more-magic.net>
Date: Mon, 1 Oct 2012 18:33:26 +0100
Subject: Mistake: the fork should automatically exit, the user shouldn't need
 to do this

---
 scsh-process.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'scsh-process.scm')

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.
-- 
cgit v1.2.3