actors: debug: Fixing hive-create-actor-gimmie, hive-create-actor-gimmie*.
authorChristopher Allan Webber <cwebber@dustycloud.org>
Wed, 27 Apr 2016 18:13:03 +0000 (13:13 -0500)
committerChristopher Allan Webber <cwebber@dustycloud.org>
Wed, 27 Apr 2016 18:13:03 +0000 (13:13 -0500)
* 8sync/systems/actors/debug.scm (hive-create-actor-gimmie)
  (hive-create-actor-gimmie*): Fix definitions.

8sync/systems/actors/debug.scm

index 0a5615d0f2fad9c72f08e8b375e3fef6707774b6..24233f75de9c5b8009af8fa7beb5a8ac08fceacb 100644 (file)
 ;;; 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)))