projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
agenda: Rename start-agenda to run-agenda.
[8sync.git]
/
8sync
/
actors.scm
diff --git
a/8sync/actors.scm
b/8sync/actors.scm
index bf1093ab542d1101328bc83a9449ee49c35fcfde..37f321bed89011f4e89b8bb6071d96ef3da9467c 100644
(file)
--- a/
8sync/actors.scm
+++ b/
8sync/actors.scm
@@
-731,7
+731,7
@@
its '*cleanup* action handler."
(let* ((queue (list->q initial-tasks))
(agenda (make-agenda #:pre-unwind-handler print-error-and-continue
#:queue queue)))
(let* ((queue (list->q initial-tasks))
(agenda (make-agenda #:pre-unwind-handler print-error-and-continue
#:queue queue)))
- (
start
-agenda agenda)))
+ (
run
-agenda agenda)))
;; Run cleanup
(lambda ()
(when cleanup
;; Run cleanup
(lambda ()
(when cleanup
@@
-740,7
+740,7
@@
its '*cleanup* action handler."
(define (run-hive-cleanup hive)
(let ((queue (list->q (list (bootstrap-message hive (actor-id hive)
'*cleanup-all*)))))
(define (run-hive-cleanup hive)
(let ((queue (list->q (list (bootstrap-message hive (actor-id hive)
'*cleanup-all*)))))
- (
start
-agenda
+ (
run
-agenda
(make-agenda #:queue queue))))
(define (bootstrap-message hive to-id action . message-body-args)
(make-agenda #:queue queue))))
(define (bootstrap-message hive to-id action . message-body-args)