really-fork/pipe was binding PROC but testing PID -- bug. Changed PID to PROC.

1995-10-26 10:46:07 +00:00 · 1995-10-26 10:46:07 +00:00 · bc338f2d53
parent d6c6a3030f
commit bc338f2d53
1 changed files with 1 additions and 1 deletions
--- 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