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)))
-        (start-agenda agenda)))
+        (run-agenda agenda)))
     ;; 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*)))))
-    (start-agenda
+    (run-agenda
      (make-agenda #:queue queue))))
 
 (define (bootstrap-message hive to-id action . message-body-args)