From 0b51dbc3f36e937739af0c945e4c69f86f31c0df Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Wed, 27 Apr 2016 13:13:03 -0500 Subject: [PATCH 1/1] actors: debug: Fixing hive-create-actor-gimmie, hive-create-actor-gimmie*. * 8sync/systems/actors/debug.scm (hive-create-actor-gimmie) (hive-create-actor-gimmie*): Fix definitions. --- 8sync/systems/actors/debug.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/8sync/systems/actors/debug.scm b/8sync/systems/actors/debug.scm index 0a5615d..24233f7 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))) -- 2.31.1