Flushing output after frame is sent.

2015-04-18 10:57:12 -07:00
parent 946552f79c
commit 5816661ebf
1 changed files with 1 additions and 0 deletions
--- 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)))