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

diff --git a/8sync/systems/websocket/server.scm b/8sync/systems/websocket/server.scm
index 4751067..7a7526d 100644
--- a/8sync/systems/websocket/server.scm
+++ b/8sync/systems/websocket/server.scm
@@ -68,7 +68,8 @@ string."
 
 (define-actor <websocket-server> (<web-server>)
   ((ws-send websocket-server-send))
-  (upgrade-paths #:init-value `(("websocket" . ,websocket-client-loop))
+  (upgrade-paths #:init-value `(("websocket" .
+                                 ,(live-wrap websocket-client-loop)))
                  #:allocation #:each-subclass
                  #:accessor .upgrade-paths)