actors: Add auto-init feature to actors.

[8sync.git] / 8sync / debug.scm

diff --git a/8sync/debug.scm b/8sync/debug.scm
index a05f131b06e3d37b1c623981bf9415b20e264c8a..27438e5f51a08cc26a520d614c0a538d1351ace4 100644 (file)
--- a/8sync/debug.scm
+++ b/8sync/debug.scm
@@ -22,8 +22,8 @@
   #:export (hive-resolve-local-actor
             actor-hive
 
-            hive-create-actor-gimmie
-            hive-create-actor-gimmie*))
+            bootstrap-actor-gimmie
+            bootstrap-actor-gimmie*))
 
 \f
 ;;; Expose not normally exposed methods
@@ -42,16 +42,16 @@
 ;;; Some utilities
 ;;; =============
 
-(define (hive-create-actor-gimmie hive actor-class . init)
+(define (bootstrap-actor-gimmie hive actor-class . init)
   "Create an actor on the hive, and give us that actor.
-Uses hive-create-actor* arguments."
-  (let ((actor-id (apply hive-create-actor hive actor-class init)))
+Uses bootstrap-actor* arguments."
+  (let ((actor-id (apply bootstrap-actor hive actor-class init)))
     (hive-resolve-local-actor hive actor-id)))
 
-(define (hive-create-actor-gimmie* hive actor-class id-cookie . init)
+(define (bootstrap-actor-gimmie* hive actor-class id-cookie . init)
   "Create an actor on the hive, and give us that actor.
-Uses hive-create-actor* arguments."
-  (let ((actor-id (apply hive-create-actor*
+Uses bootstrap-actor* arguments."
+  (let ((actor-id (apply bootstrap-actor*
                          hive actor-class id-cookie init)))
     (hive-resolve-local-actor hive actor-id)))