X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=8sync%2Factors.scm;h=2c7381d556457b839e9b23123777f80eeb700313;hb=88ad8bc99a14d0037bad27ff3c576ebbabbf14f4;hp=867e3d08e2e0a2d2525aa5d06189231c18648b99;hpb=5fa0225a261a031fc8cd2988932e6a3e8f4528fb;p=8sync.git

diff --git a/8sync/actors.scm b/8sync/actors.scm
index 867e3d0..2c7381d 100644
--- a/8sync/actors.scm
+++ b/8sync/actors.scm
@@ -322,13 +322,13 @@ raise an exception if an error."
 ;;
 
 (define (make-address actor-id hive-id)
-  (cons actor-id hive-id))
+  (vector actor-id hive-id))
 
 (define (address-actor-id address)
-  (car address))
+  (vector-ref address 0))
 
 (define (address-hive-id address)
-  (cdr address))
+  (vector-ref address 1))
 
 (define (address->string address)
   (string-append (address-actor-id address) "@"
@@ -632,6 +632,7 @@ that method for documentation."
                       init #f))
 
 (define* (hive-create-actor* hive actor-class id-cookie #:rest init)
+  "Create an actor, but also add a 'cookie' to the name for debugging"
   (%hive-create-actor hive actor-class
                       init id-cookie))