Fixed bug in really-fork/pipe+: let-optionals already takes care of

optional arguments, no need to CAR any further.

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)