actors: debug: hive-create-actor-gimmie*'s init should glob arguments.

* 8sync/systems/actors/debug.scm (hive-create-actor-gimmie*): init should
  grab the rest of the arguments.

diff --git a/8sync/systems/actors/debug.scm b/8sync/systems/actors/debug.scm
index 24233f75de9c5b8009af8fa7beb5a8ac08fceacb..465751c04063f28aad69f00bc11e750dc255e7ef 100644 (file)
--- a/8sync/systems/actors/debug.scm
+++ b/8sync/systems/actors/debug.scm
@@ -48,7 +48,7 @@ Uses hive-create-actor* arguments."
   (let ((actor-id (apply hive-create-actor hive actor-class init)))
     (hive-resolve-local-actor hive actor-id)))
 
   (let ((actor-id (apply hive-create-actor hive actor-class init)))
     (hive-resolve-local-actor hive actor-id)))
 

-(define (hive-create-actor-gimmie* hive actor-class id-cookie init)
+(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*
   "Create an actor on the hive, and give us that actor.
 Uses hive-create-actor* arguments."
   (let ((actor-id (apply hive-create-actor*