From 5816661ebfb0c1f3d04793e323aeb0ffae48b949 Mon Sep 17 00:00:00 2001 From: Thomas Hintz Date: Sat, 18 Apr 2015 10:57:12 -0700 Subject: [PATCH] Flushing output after frame is sent. --- websockets.scm | 1 + 1 file changed, 1 insertion(+) diff --git a/websockets.scm b/websockets.scm index 1e676b6..51d9692 100644 --- a/websockets.scm +++ b/websockets.scm @@ -166,6 +166,7 @@ outbound-port) (write-string data len outbound-port) + (flush-output (response-port (current-response))) #t)) (define (send-message data #!optional (optype 'text) (ws (current-websocket)))