From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Sat, 24 Dec 2016 19:06:12 +0000 (-0600)
Subject: actors: Update actor ids to use a vector rather than a cons cell.
X-Git-Tag: v0.4.0~55
X-Git-Url: https://jxself.org/git/?p=8sync.git;a=commitdiff_plain;h=7b3f08078664ba2a09d204fe175b5b80f497b44f

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

This is a bit easier to read when read/written, and should be
comparatively efficient.

* 8sync/actors.scm (make-address, address-actor-id, address-hive-id):
Update to use a vector rather than a cons cell.
---

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) "@"