From bc338f2d5385b6f9fe97b36d5a4af1f90bba5b5c Mon Sep 17 00:00:00 2001
From: shivers <shivers>
Date: Thu, 26 Oct 1995 10:46:07 +0000
Subject: [PATCH] really-fork/pipe was binding PROC but testing PID -- bug.
 Changed PID to PROC.

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

diff --git a/scsh/scsh.scm b/scsh/scsh.scm
index b580c9f..02039f0 100644
--- a/scsh/scsh.scm
+++ b/scsh/scsh.scm
@@ -29,7 +29,7 @@
 (define (really-fork/pipe forker maybe-thunk)
   (receive (r w) (pipe)
     (let ((proc (forker)))
-      (cond (pid		; Parent
+      (cond (proc		; Parent
 	     (close w)
 	     (move->fdes r 0))
 	    (else		; Child