Flush output after writing a line.

2014-06-02 16:33:35 -04:00 · 2014-06-02 16:33:35 -04:00 · 52faa78444
parent 435ab0fbd8
commit 52faa78444
1 changed files with 1 additions and 0 deletions
--- a/minimart/examples/chat-client.rkt
+++ b/minimart/examples/chat-client.rkt
@ -16,6 +16,7 @@
 	    (transition seen-remote? (send (tcp-channel local-handle remote-handle line)))]
 	   [(message (tcp-channel _ _ bs) 0 #f)
 	    (write-bytes bs)
+	    (flush-output)
 	    #f]
 	   [(routing-update g)
 	    (define remote-present? (not (gestalt-empty? g)))