From 52faa78444351f1a55b1de1a687299ada79e1023 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 2 Jun 2014 16:33:35 -0400 Subject: [PATCH] Flush output after writing a line. --- minimart/examples/chat-client.rkt | 1 + 1 file changed, 1 insertion(+) diff --git a/minimart/examples/chat-client.rkt b/minimart/examples/chat-client.rkt index a44fe3b..799c65f 100644 --- 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)))