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))
|
||||
(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)
|
||||
]}
|
||||
|
||||
@;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
|
|
Loading…
Reference in New Issue
Block a user