From 9414dea358e9067f1d333650df1a228dcc4bf378 Mon Sep 17 00:00:00 2001
From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Wed, 27 Apr 2016 07:16:48 -0500
Subject: [PATCH 1/1] 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.
---
 8sync/systems/actors.scm            | 4 ++--
 demos/actors/botherbotherbother.scm | 2 +-
 demos/actors/robotscanner.scm       | 2 +-
 demos/actors/simplest-possible.scm  | 4 ++--
 tests/test-actors.scm               | 4 ++--
 5 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/8sync/systems/actors.scm b/8sync/systems/actors.scm
index 7e8d957..9009d30 100644
--- 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 5f294fd..db3c9d8 100755
--- 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 89088c6..80cd2e5 100644
--- 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 af4a086..9b563c0 100644
--- 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 15191c4..36614b2 100644
--- 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
-- 
2.31.1