From 551f0a3ee2947bd2119c0f65694f8400c0b637a8 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Mon, 31 Mar 2003 06:09:00 +0000
Subject: [PATCH] Fixed bug in really-fork/pipe+: let-optionals already takes
 care of optional arguments, no need to CAR any further.

---
 scsh/scsh.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scsh/scsh.scm b/scsh/scsh.scm
index 393323d..3e74c45 100644
--- a/scsh/scsh.scm
+++ b/scsh/scsh.scm
@@ -82,8 +82,8 @@
 			     (for-each (lambda (fd) (dup w fd)) from)
 			     (close w))) ; Unrevealed ports win.
 			 froms pipes)
-	       (if (pair? maybe-thunk)
-		   (call-terminally (car maybe-thunk)))))
+	       (if maybe-thunk
+		   (call-terminally maybe-thunk))))
 	proc))))
 
 (define (tail-pipe a b)