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)))