fix flushing issue

svn: r11986
This commit is contained in:
Eli Barzilay 2008-10-10 09:58:18 +00:00
parent 31c55616a9
commit 4f57cbbf37

View File

@ -114,9 +114,9 @@ with the output port; when the function returns, the port is closed.
(begin (define-values (s-in c-out) (make-pipe))
(define-values (c-in s-out) (make-pipe))))
(display "hello\n" c-out)
(read-line s-in)
(close-output-port c-out)
(read-line s-in)
(read-line s-in)
]}
@;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -