Flush output after writing a line.
This commit is contained in:
parent
435ab0fbd8
commit
52faa78444
|
@ -16,6 +16,7 @@
|
||||||
(transition seen-remote? (send (tcp-channel local-handle remote-handle line)))]
|
(transition seen-remote? (send (tcp-channel local-handle remote-handle line)))]
|
||||||
[(message (tcp-channel _ _ bs) 0 #f)
|
[(message (tcp-channel _ _ bs) 0 #f)
|
||||||
(write-bytes bs)
|
(write-bytes bs)
|
||||||
|
(flush-output)
|
||||||
#f]
|
#f]
|
||||||
[(routing-update g)
|
[(routing-update g)
|
||||||
(define remote-present? (not (gestalt-empty? g)))
|
(define remote-present? (not (gestalt-empty? g)))
|
||||||
|
|
Loading…
Reference in New Issue