* 8sync/systems/websocket/server.scm (<websocket-server>):
Remove the wrap-apply surrounding websocket-client-loop in <websocket-server>'s
upgrade-paths slot.
(define-actor <websocket-server> (<web-server>)
((ws-send websocket-server-send))
(define-actor <websocket-server> (<web-server>)
((ws-send websocket-server-send))
- (upgrade-paths #:init-value `(("websocket" .
- ,(wrap-apply websocket-client-loop)))
+ (upgrade-paths #:init-value `(("websocket" . ,websocket-client-loop))
#:allocation #:each-subclass
#:accessor .upgrade-paths)
#:allocation #:each-subclass
#:accessor .upgrade-paths)