Use *init* and *cleanup* in existing actors.

[8sync.git] / 8sync / repl.scm

diff --git a/8sync/repl.scm b/8sync/repl.scm
index 006540367dcea540a8046bff154f17264e6f0770..98931edaf91689369b0a6ac07c6e14f6a74ea028 100644 (file)
--- 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))))
-