X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;ds=sidebyside;f=8sync%2Fsystems%2Factors%2Fdebug.scm;h=465751c04063f28aad69f00bc11e750dc255e7ef;hb=29745029f85cbc462bcfa0c75f92156ea2c6b494;hp=24233f75de9c5b8009af8fa7beb5a8ac08fceacb;hpb=0b51dbc3f36e937739af0c945e4c69f86f31c0df;p=8sync.git diff --git a/8sync/systems/actors/debug.scm b/8sync/systems/actors/debug.scm index 24233f7..465751c 100644 --- 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))) -(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*