summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThomas Hintz <t@thintz.com>2015-04-18 10:57:12 -0700
committerThomas Hintz <t@thintz.com>2015-04-18 10:57:12 -0700
commit5816661ebfb0c1f3d04793e323aeb0ffae48b949 (patch)
tree53c2c737c008c56d693cb5ed8d6b825d251c56e2
parent946552f79c4fbd683403f99b51882685772ae1cc (diff)
downloadwebsockets-5816661ebfb0c1f3d04793e323aeb0ffae48b949.tar.gz
Flushing output after frame is sent.
-rw-r--r--websockets.scm1
1 files changed, 1 insertions, 0 deletions
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)))