actors: Rename ez-run-hive to run-hive.

* 8sync/actors.scm (run-hive): Renamed from ez-run-hive.
All callers changed.

diff --git a/8sync/actors.scm b/8sync/actors.scm
index 1927465a804007d1d64fbead3e84d6bf8141a7e1..333d779b6d6dea92e66d3f6db53ef1e382204920 100644 (file)
--- a/8sync/actors.scm
+++ b/8sync/actors.scm
@@ -75,7 +75,7 @@
 
             call-with-message msg-receive msg-val
 
-            ez-run-hive
+            run-hive
             bootstrap-message
 
             serialize-message write-message
@@ -698,7 +698,7 @@ Like create-actor, but permits supplying an id-cookie."
 ;;; 8sync bootstrap utilities
 ;;; =========================
 
-(define* (ez-run-hive hive initial-tasks)
+(define* (run-hive hive initial-tasks)
   "Start up an agenda and run HIVE in it with INITIAL-TASKS."
   (let* ((queue (list->q initial-tasks))
          (agenda (make-agenda #:pre-unwind-handler print-error-and-continue

diff --git a/demos/actors/botherbotherbother.scm b/demos/actors/botherbotherbother.scm
index 356a6a9451410eda4709cc8e78ba5d46a3211f59..4911afa16bebdd0278dc386f81ccebdc53c112a9 100755 (executable)
--- a/demos/actors/botherbotherbother.scm
+++ b/demos/actors/botherbotherbother.scm
@@ -131,4 +131,4 @@
                                #:target professor))
      students))
 
-  (ez-run-hive hive start-bothering-tasks))
+  (run-hive hive start-bothering-tasks))

diff --git a/demos/actors/robotscanner.scm b/demos/actors/robotscanner.scm
index e8d2cc8b46b02c6536d657a1f472ab815792ac92..f620ba8e0377545511e957c33d77aa39e89a9a08 100644 (file)
--- a/demos/actors/robotscanner.scm
+++ b/demos/actors/robotscanner.scm
@@ -265,4 +265,4 @@
   (define overseer (hive-create-actor hive <overseer>))
   (define initial-messages
     (list (bootstrap-message hive overseer 'init-world)))
-  (ez-run-hive hive initial-messages))
+  (run-hive hive initial-messages))

diff --git a/demos/actors/simplest-possible.scm b/demos/actors/simplest-possible.scm
index 13aea1cdd5034a501eba33bbd7c8798a7637ae75..e9aaac7be66e81061789488558da2fcf68358a9d 100644 (file)
--- a/demos/actors/simplest-possible.scm
+++ b/demos/actors/simplest-possible.scm
@@ -34,6 +34,6 @@
 (define our-emo (hive-create-actor hive <emo>))
 (define our-proog (hive-create-actor hive <proog>))
 (define (main . args)
-  (ez-run-hive hive
-               (list (bootstrap-message hive our-emo 'greet-proog
-                                        our-proog))))
+  (run-hive hive
+            (list (bootstrap-message hive our-emo 'greet-proog
+                                     our-proog))))

diff --git a/demos/ircbot.scm b/demos/ircbot.scm
index eaae113f80bf07d34b391652eec024d9ca728fc7..b962ad742db99e30e2437305190740434b98ce80 100755 (executable)
--- a/demos/ircbot.scm
+++ b/demos/ircbot.scm
@@ -123,7 +123,7 @@
         (list (bootstrap-message hive irc-bot 'init))))
 
   ;; TODO: load REPL
-  (ez-run-hive hive initial-messages))
+  (run-hive hive initial-messages))
 
 (define (main args)
   (define parsed-args (parse-args "ircbot.scm" args))

diff --git a/tests/test-actors.scm b/tests/test-actors.scm
index 73927cd9764e773327b6ab52f3ac0302e0fb29c0..68a05bf13a1b3c668f5c76430862fd06fe6410b1 100644 (file)
--- a/tests/test-actors.scm
+++ b/tests/test-actors.scm
@@ -115,7 +115,7 @@
        (lazy-rep (hive-create-actor* hive <lazy-rep> "lazy-rep")))
   ;; * Playing a tape of a diligent service rep *
   (parameterize ((%record-out (open-output-string)))
-    (let* ((result (ez-run-hive
+    (let* ((result (run-hive
                     hive
                     (list (bootstrap-message hive customer 'pester-rep
                                              #:who-to-call diligent-rep))))
@@ -129,7 +129,7 @@ customer> Well then!  Harumph.\n"
         displayed-text)))
   ;; * Playing a tape of a lazy service rep *
   (parameterize ((%record-out (open-output-string)))
-    (let* ((result (ez-run-hive
+    (let* ((result (run-hive
                     hive
                     (list (bootstrap-message hive customer 'pester-rep
                                                   #:who-to-call lazy-rep))))