syndicate-lang
/
minimart-2014
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Provide struct projection; make projection and gestalt non-transparent

This commit is contained in:
Tony Garnock-Jones 2014-06-27 00:14:18 -04:00
parent b58c31b4b5
commit af3a27c3c3
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
minimart/gestalt.rkt
View File

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