X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=8sync%2Frepl.scm;h=d8f60e9bbcc906286c6547a26c5f8c40d61bbad7;hp=006540367dcea540a8046bff154f17264e6f0770;hb=6c17108201b3fe15bc3818d42a7100cd0513dd50;hpb=47de7ccf21d3a2a615271d0ab007ce3d15ffa23d diff --git a/8sync/repl.scm b/8sync/repl.scm index 0065403..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 +;;; Copyright © 2015, 2016, 2017 Christopher Allan Webber ;;; ;;; 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 @@ -55,4 +55,3 @@ (while (actor-alive? repl-manager) (poll-coop-repl-server server) (8sleep (repl-manager-poll-every repl-manager)))) -