Drain ws-ch in an additional, previously-overlooked case
This commit is contained in:
parent
22a517f1b5
commit
c9b62c9a6d
|
@ -275,7 +275,8 @@
|
|||
(list)))
|
||||
(output-response/method conn
|
||||
resp
|
||||
(request-method req)))))
|
||||
(request-method req))
|
||||
(drain-ws-ch! ws-ch))))
|
||||
((make-general-websockets-dispatcher
|
||||
(websocket-connection-main id ws-ch)
|
||||
(lambda _args (values reply-headers (void))))
|
||||
|
@ -317,9 +318,11 @@
|
|||
(loop)]))))
|
||||
(ws-close! wsc))
|
||||
(when (not quit-seen?)
|
||||
(let loop ()
|
||||
(when (not (equal? (channel-get ws-ch) 'quit))
|
||||
(loop)))))
|
||||
(drain-ws-ch! ws-ch)))
|
||||
|
||||
(define (drain-ws-ch! ws-ch)
|
||||
(when (not (equal? (channel-get ws-ch) 'quit))
|
||||
(drain-ws-ch! ws-ch)))
|
||||
|
||||
;; D-: uck barf
|
||||
;; TODO: something to fix this :-/
|
||||
|
|
Loading…
Reference in New Issue