;;; 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.
;;;
;; @@: 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
(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))))
-