X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;ds=sidebyside;f=8sync%2Factors.scm;h=2c7381d556457b839e9b23123777f80eeb700313;hb=7b3f08078664ba2a09d204fe175b5b80f497b44f;hp=9b079b8a1754c788ac860a8cbccf78904f1a5b42;hpb=d0a86ba4c62607a2051729a81844adabb2760b25;p=8sync.git

diff --git a/8sync/actors.scm b/8sync/actors.scm
index 9b079b8..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) "@"