Flushing output after frame is sent.
This commit is contained in:
parent
946552f79c
commit
5816661ebf
|
@ -166,6 +166,7 @@
|
||||||
outbound-port)
|
outbound-port)
|
||||||
|
|
||||||
(write-string data len outbound-port)
|
(write-string data len outbound-port)
|
||||||
|
(flush-output (response-port (current-response)))
|
||||||
#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