From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Mon, 2 Jan 2017 00:45:50 +0000 (-0600)
Subject: actors: Rename ez-run-hive to run-hive.
X-Git-Tag: v0.4.0~40
X-Git-Url: https://jxself.org/git/?p=8sync.git;a=commitdiff_plain;h=c769bb3b2c949c304eb4395d3f24eebea6106c1a;ds=sidebyside

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 1927465..333d779 100644
--- 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 356a6a9..4911afa 100755
--- 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 e8d2cc8..f620ba8 100644
--- 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 13aea1c..e9aaac7 100644
--- 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 eaae113..b962ad7 100755
--- 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 73927cd..68a05bf 100644
--- 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))))