Fixing flush-output on send-frame.
This commit is contained in:
parent
949af5c092
commit
35aa88199d
|
@ -166,7 +166,7 @@
|
||||||
outbound-port)
|
outbound-port)
|
||||||
|
|
||||||
(write-string data len outbound-port)
|
(write-string data len outbound-port)
|
||||||
(flush-output (response-port (current-response)))
|
(flush-output outbound-port)
|
||||||
#t))
|
#t))
|
||||||
|
|
||||||
(define (send-message data #!optional (optype 'text) (ws (current-websocket)))
|
(define (send-message data #!optional (optype 'text) (ws (current-websocket)))
|
||||||
|
|
Loading…
Reference in New Issue