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

This commit is contained in:
shivers 1995-10-26 10:46:07 +00:00
parent d6c6a3030f
commit bc338f2d53
1 changed files with 1 additions and 1 deletions

View File

@ -29,7 +29,7 @@
(define (really-fork/pipe forker maybe-thunk) (define (really-fork/pipe forker maybe-thunk)
(receive (r w) (pipe) (receive (r w) (pipe)
(let ((proc (forker))) (let ((proc (forker)))
(cond (pid ; Parent (cond (proc ; Parent
(close w) (close w)
(move->fdes r 0)) (move->fdes r 0))
(else ; Child (else ; Child