X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=8sync%2Fsystems%2Factors%2Fdebug.scm;h=465751c04063f28aad69f00bc11e750dc255e7ef;hb=f8924934cac11ad55419bd4ba6c6732eefe05908;hp=0a5615d0f2fad9c72f08e8b375e3fef6707774b6;hpb=961046c784a18f8e2b7684482b0869808a5fe0e2;p=8sync.git

diff --git a/8sync/systems/actors/debug.scm b/8sync/systems/actors/debug.scm
index 0a5615d..465751c 100644
--- a/8sync/systems/actors/debug.scm
+++ b/8sync/systems/actors/debug.scm
@@ -42,16 +42,17 @@
 ;;; Some utilities
 ;;; =============
 
-(define (hive-create-actor-gimmie . args)
+(define (hive-create-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 args)))
+  (let ((actor-id (apply hive-create-actor hive actor-class init)))
     (hive-resolve-local-actor hive actor-id)))
 
-(define (hive-create-actor-gimmie* . args)
+(define (hive-create-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* args)))
+  (let ((actor-id (apply hive-create-actor*
+                         hive actor-class id-cookie init)))
     (hive-resolve-local-actor hive actor-id)))