summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThomas Hintz <t@thintz.com>2015-08-04 16:20:48 -0700
committerThomas Hintz <t@thintz.com>2015-08-04 16:20:48 -0700
commit35aa88199d698e28afe5b7d748ec8a0ee379529f (patch)
tree510faeecac3f439464bf69d56fa7b311e8de44a8
parent949af5c09218b901afcc6b877252a3b7c4dd6401 (diff)
downloadwebsockets-35aa88199d698e28afe5b7d748ec8a0ee379529f.tar.gz
Fixing flush-output on send-frame.
-rw-r--r--websockets.scm2
1 files changed, 1 insertions, 1 deletions
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)))