X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=8sync%2Frepl.scm;fp=8sync%2Frepl.scm;h=98931edaf91689369b0a6ac07c6e14f6a74ea028;hp=006540367dcea540a8046bff154f17264e6f0770;hb=68472a819457ce0e6053b59b2b9a1657669e8801;hpb=b4d48459b192645cd9537830f9ddecbf138f11ec diff --git a/8sync/repl.scm b/8sync/repl.scm index 0065403..98931ed 100644 --- a/8sync/repl.scm +++ b/8sync/repl.scm @@ -36,7 +36,7 @@ ;; @@: Should we add a stop action? #:init-value (build-actions (*cleanup* repl-manager-cleanup) - (init repl-manager-init)))) + (*init* repl-manager-init)))) (define (repl-manager-cleanup repl-manager message) ;; Close the socket, if open @@ -55,4 +55,3 @@ (while (actor-alive? repl-manager) (poll-coop-repl-server server) (8sleep (repl-manager-poll-every repl-manager)))) -