;; @@: Should we add a stop action?
#:init-value (build-actions
(*cleanup* repl-manager-cleanup)
;; @@: Should we add a stop action?
#:init-value (build-actions
(*cleanup* repl-manager-cleanup)
(define (repl-manager-cleanup repl-manager message)
;; Close the socket, if open
(define (repl-manager-cleanup repl-manager message)
;; Close the socket, if open
(while (actor-alive? repl-manager)
(poll-coop-repl-server server)
(8sleep (repl-manager-poll-every repl-manager))))
(while (actor-alive? repl-manager)
(poll-coop-repl-server server)
(8sleep (repl-manager-poll-every repl-manager))))