actors: Update actor ids to use a vector rather than a cons cell.

[8sync.git] / 8sync / actors.scm

diff --git a/8sync/actors.scm b/8sync/actors.scm
index 9b079b8a1754c788ac860a8cbccf78904f1a5b42..2c7381d556457b839e9b23123777f80eeb700313 100644 (file)
--- 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) "@"