X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=8sync%2Frepl.scm;h=d8f60e9bbcc906286c6547a26c5f8c40d61bbad7;hb=4998e7a9fe3b303923d918cd6087633d5302274f;hp=16e246699fe1af49573ddb221ba7bbce839cdda3;hpb=6a8dc6f801cc08e1b92dce53fc8a3758c9b0718a;p=8sync.git

diff --git a/8sync/repl.scm b/8sync/repl.scm
index 16e2466..d8f60e9 100644
--- a/8sync/repl.scm
+++ b/8sync/repl.scm
@@ -1,5 +1,5 @@
 ;;; 8sync --- Asynchronous programming for Guile
-;;; Copyright (C) 2015 Christopher Allan Webber <cwebber@dustycloud.org>
+;;; Copyright © 2015, 2016, 2017 Christopher Allan Webber <cwebber@dustycloud.org>
 ;;;
 ;;; This file is part of 8sync.
 ;;;
@@ -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
@@ -52,7 +52,6 @@
   (define server
     (spawn-coop-repl-server socket))
   (set! (repl-manager-socket repl-manager) socket)
-  (while (actor-am-i-alive? repl-manager)
+  (while (actor-alive? repl-manager)
     (poll-coop-repl-server server)
     (8sleep (repl-manager-poll-every repl-manager))))
-