From 35aa88199d698e28afe5b7d748ec8a0ee379529f Mon Sep 17 00:00:00 2001 From: Thomas Hintz Date: Tue, 4 Aug 2015 16:20:48 -0700 Subject: [PATCH] Fixing flush-output on send-frame. --- websockets.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/websockets.scm b/websockets.scm index b04eac2..c4a761b 100644 --- a/websockets.scm +++ b/websockets.scm @@ -166,7 +166,7 @@ outbound-port) (write-string data len outbound-port) - (flush-output (response-port (current-response))) + (flush-output outbound-port) #t)) (define (send-message data #!optional (optype 'text) (ws (current-websocket)))