From af3a27c3c36a76c161182c7112ec90ebbadef4a5 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Fri, 27 Jun 2014 00:14:18 -0400 Subject: [PATCH] Provide struct projection; make projection and gestalt non-transparent --- minimart/gestalt.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/minimart/gestalt.rkt b/minimart/gestalt.rkt index c3ee691..50dd6c4 100644 --- a/minimart/gestalt.rkt +++ b/minimart/gestalt.rkt @@ -8,6 +8,7 @@ (require "route.rkt") (provide (struct-out gestalt) + (struct-out projection) gestalt-match-value project-subs @@ -71,14 +72,14 @@ ;; -- Greg Egan, "Diaspora" ;; http://gregegan.customer.netspace.net.au/DIASPORA/01/Orphanogenesis.html ;; -(struct gestalt (metalevels) #:prefab) +(struct gestalt (metalevels)) ;; Convention: A GestaltSet is a Gestalt where the Matchers map to #t ;; instead of (NonemptySetof PID) or any other value. ;; A GestaltProjection is a single-metalevel, single-level fragment of ;; a gestalt with capture-groups. See matcher-project in route.rkt. -(struct projection (metalevel level get-advertisements? spec compiled) #:transparent) +(struct projection (metalevel level get-advertisements? spec compiled)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;