Fixing flush-output on send-frame.

This commit is contained in:
Thomas Hintz 2015-08-04 16:20:48 -07:00
parent 949af5c092
commit 35aa88199d
1 changed files with 1 additions and 1 deletions

View File

@ -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)))