X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=8sync%2Frepl.scm;h=98931edaf91689369b0a6ac07c6e14f6a74ea028;hp=006540367dcea540a8046bff154f17264e6f0770;hb=2255f6996a4fbe708b235760816a6dd49959fb6d;hpb=47de7ccf21d3a2a615271d0ab007ce3d15ffa23d 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)))) -