From f3569fb835395ee0df67663bd187663102a3c985 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Mon, 9 Jan 2017 11:17:38 -0600 Subject: [PATCH] actors: Update comments on addresses. * 8sync/actors.scm: Updated comments on addresses. --- 8sync/actors.scm | 19 +++---------------- 1 file changed, 3 insertions(+), 16 deletions(-) diff --git a/8sync/actors.scm b/8sync/actors.scm index 0c50446..869d4ad 100644 --- a/8sync/actors.scm +++ b/8sync/actors.scm @@ -342,22 +342,9 @@ to come after class definition." (*cleanup* (const #f))) #:allocation #:each-subclass)) -;;; So these are the nicer representations of addresses. -;;; However, they don't serialize so easily with scheme read/write, so we're -;;; using the simpler cons cell version below for now. - -;; (define-record-type
-;; (make-address actor-id hive-id) ; @@: Do we want the trailing -id? -;; address? -;; (actor-id address-actor-id) -;; (hive-id address-hive-id)) -;; -;; (set-record-type-printer! -;;
-;; (lambda (record port) -;; (format port "" -;; (address-actor-id record) (address-hive-id record)))) -;; +;;; Addresses are vectors where the first part is the actor-id and +;;; the second part is the hive-id. This works well enough... they +;;; look decent being pretty-printed. (define (make-address actor-id hive-id) (vector actor-id hive-id)) -- 2.31.1