projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Update copyrights.
[8sync.git]
/
8sync
/
repl.scm
diff --git
a/8sync/repl.scm
b/8sync/repl.scm
index 16e246699fe1af49573ddb221ba7bbce839cdda3..d8f60e9bbcc906286c6547a26c5f8c40d61bbad7 100644
(file)
--- a/
8sync/repl.scm
+++ b/
8sync/repl.scm
@@
-1,5
+1,5
@@
;;; 8sync --- Asynchronous programming for Guile
;;; 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.
;;;
;;;
;;; This file is part of 8sync.
;;;
@@
-36,7
+36,7
@@
;; @@: 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)
- (
init
repl-manager-init))))
+ (
*init*
repl-manager-init))))
(define (repl-manager-cleanup repl-manager message)
;; Close the socket, if open
(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)
(define server
(spawn-coop-repl-server socket))
(set! (repl-manager-socket repl-manager) socket)
- (while (actor-a
m-i-a
live? repl-manager)
+ (while (actor-alive? repl-manager)
(poll-coop-repl-server server)
(8sleep (repl-manager-poll-every repl-manager))))
(poll-coop-repl-server server)
(8sleep (repl-manager-poll-every repl-manager))))
-