Fixing flush-output on send-frame.
This commit is contained in:
parent
949af5c092
commit
35aa88199d
|
@ -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)))
|
||||
|
|
Loading…
Reference in New Issue