From 65c99e24b4a95758cdeaca122cee5d1a715d959a Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonyg@leastfixedpoint.com>
Date: Tue, 11 Jun 2019 18:34:14 +0100
Subject: [PATCH] Line-based buffering of stdout in server-chat-client

---
 imperative/examples/server-chat-client.rkt | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/imperative/examples/server-chat-client.rkt b/imperative/examples/server-chat-client.rkt
index 6e405ed..a3dd9cb 100644
--- a/imperative/examples/server-chat-client.rkt
+++ b/imperative/examples/server-chat-client.rkt
@@ -11,6 +11,8 @@
 (define port (make-parameter 8001))
 (define scope (make-parameter "chat"))
 
+(file-stream-buffer-mode (current-output-port) 'line)
+
 (module+ main
   (require racket/cmdline)
   (command-line #:once-each