Fixing flush-output on send-frame.

10 years ago · 35aa88199d
parent 949af5c092
commit 35aa88199d
1 changed files with 1 additions and 1 deletions
--- 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)))