fix flushing issue
svn: r11986
This commit is contained in:
parent
31c55616a9
commit
4f57cbbf37
|
@ -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))
|
(begin (define-values (s-in c-out) (make-pipe))
|
||||||
(define-values (c-in s-out) (make-pipe))))
|
(define-values (c-in s-out) (make-pipe))))
|
||||||
(display "hello\n" c-out)
|
(display "hello\n" c-out)
|
||||||
(read-line s-in)
|
|
||||||
(close-output-port c-out)
|
(close-output-port c-out)
|
||||||
(read-line s-in)
|
(read-line s-in)
|
||||||
|
(read-line s-in)
|
||||||
]}
|
]}
|
||||||
|
|
||||||
@;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
@;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||||
|
|
Loading…
Reference in New Issue
Block a user