really-fork/pipe was binding PROC but testing PID -- bug. Changed PID to PROC.
This commit is contained in:
parent
d6c6a3030f
commit
bc338f2d53
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue