Flushing output after frame is sent.
This commit is contained in:
parent
946552f79c
commit
5816661ebf
|
@ -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)))
|
||||
|
|
Loading…
Reference in New Issue