X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=8sync%2Fsystems%2Fwebsocket%2Fserver.scm;fp=8sync%2Fsystems%2Fwebsocket%2Fserver.scm;h=47510672b4ebcc7ef84266000ff49e25a1bb10f4;hp=81c9244bcfdca42cfe96fae2e10036da12a4bde7;hb=d3927217d30eef6207c52c2175ab147edf34e6a0;hpb=d21f6b70e8efcfe5ebd00bd2e5293fe1656afdff

diff --git a/8sync/systems/websocket/server.scm b/8sync/systems/websocket/server.scm
index 81c9244..4751067 100644
--- a/8sync/systems/websocket/server.scm
+++ b/8sync/systems/websocket/server.scm
@@ -68,8 +68,7 @@ string."
 
 (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)