actors: Rename hive-bootstrap-message -> bootstrap-message.

* 8sync/systems/actors.scm (bootstrap-message): Renamed from
  hive-bootstrap-message.
* demos/actors/botherbotherbother.scm (main):
* demos/actors/robotscanner.scm (main):
* demos/actors/simplest-possible.scm (main):
* tests/test-actors.scm: Rename references to bootstrap-message.

diff --git a/8sync/systems/actors.scm b/8sync/systems/actors.scm
index 7e8d9576033587cff78537d956964cf2ff7e48bb..9009d301470a1c9872fd32cfe306b5f1b1b1653d 100644 (file)
--- a/8sync/systems/actors.scm
+++ b/8sync/systems/actors.scm
@@ -72,7 +72,7 @@
             reply-message reply-message-wait
 
             ez-run-hive
-            hive-bootstrap-message
+            bootstrap-message
 
             serialize-message write-message
             serialize-message-pretty pprint-message
@@ -620,7 +620,7 @@ an integer."
       (spawn-and-queue-repl-server! agenda)))
     (start-agenda agenda)))
 
-(define (hive-bootstrap-message hive to-id action . message-body-args)
+(define (bootstrap-message hive to-id action . message-body-args)
   (wrap
    (apply send-message hive to-id action message-body-args)))
 

diff --git a/demos/actors/botherbotherbother.scm b/demos/actors/botherbotherbother.scm
index 5f294fd8d46097c2c3d41bda4a943ef068cc60af..db3c9d810748e022643c7fa7989d03d2b784bcbe 100755 (executable)
--- a/demos/actors/botherbotherbother.scm
+++ b/demos/actors/botherbotherbother.scm
@@ -129,7 +129,7 @@
   (define start-bothering-tasks
     (map
      (lambda (student)
-       (hive-bootstrap-message hive student 'bother-professor
+       (bootstrap-message hive student 'bother-professor
                                #:target professor))
      students))
 

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

diff --git a/demos/actors/simplest-possible.scm b/demos/actors/simplest-possible.scm
index af4a086100650b29297efb8bb0058790a6b56364..9b563c0c6774c4c491c2904a5d49c859fd34d4ff 100644 (file)
--- a/demos/actors/simplest-possible.scm
+++ b/demos/actors/simplest-possible.scm
@@ -37,5 +37,5 @@
 (define our-proog (hive-create-actor hive <proog>))
 (define (main . args)
   (ez-run-hive hive
-               (list (hive-bootstrap-message hive our-emo 'greet-proog
-                                             #:target our-proog))))
+               (list (bootstrap-message hive our-emo 'greet-proog
+                                        #:target our-proog))))

diff --git a/tests/test-actors.scm b/tests/test-actors.scm
index 15191c4bbbc00b6582f9ffb643d33a5d119b2a07..36614b227b4c9866a918eed085b681fe29e9a5ba 100644 (file)
--- a/tests/test-actors.scm
+++ b/tests/test-actors.scm
@@ -133,7 +133,7 @@
   (parameterize ((%record-out (open-output-string)))
     (let* ((result (ez-run-hive
                     hive
-                    (list (hive-bootstrap-message hive customer 'pester-rep
+                    (list (bootstrap-message hive customer 'pester-rep
                                                   #:who-to-call diligent-rep))))
            (displayed-text (get-output-string (%record-out))))
       (test-equal
@@ -148,7 +148,7 @@ customer> Well then!  Harumph.\n")))
   (parameterize ((%record-out (open-output-string)))
     (let* ((result (ez-run-hive
                     hive
-                    (list (hive-bootstrap-message hive customer 'pester-rep
+                    (list (bootstrap-message hive customer 'pester-rep
                                                   #:who-to-call lazy-rep))))
            (displayed-text (get-output-string (%record-out))))
       (test-equal