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

gestalt-project->finite-set -> gestalt-project-key-set

This commit is contained in:
Tony Garnock-Jones 2014-05-19 18:59:05 -04:00
parent 2ccd066012
commit 0cfa2bfe16
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
minimart/core.rkt
View File

@ -30,7 +30,7 @@
gestalt-ref
compile-gestalt-projection
gestalt-project
gestalt-project->finite-set
gestalt-project-key-set
pretty-print-gestalt
spawn

6
minimart/gestalt.rkt
View File

@ -10,7 +10,7 @@
gestalt-ref
compile-gestalt-projection
gestalt-project
gestalt-project->finite-set
gestalt-project-key-set
drop-gestalt
lift-gestalt
simple-gestalt
@ -72,8 +72,8 @@
(define (gestalt-project g metalevel level get-advertisements? capture-spec)
(matcher-project (gestalt-ref g metalevel level get-advertisements?) capture-spec))
(define (gestalt-project->finite-set g metalevel level get-advertisements? capture-spec)
(matcher->finite-set (gestalt-project g metalevel level get-advertisements? capture-spec)))
(define (gestalt-project-key-set g metalevel level get-advertisements? capture-spec)
(matcher-key-set (gestalt-project g metalevel level get-advertisements? capture-spec)))
(define (drop-gestalt g)
(match-define (gestalt metalevels) g)

2
minimart/ground.rkt
View File

@ -16,7 +16,7 @@
(define event-projection (compile-gestalt-projection (event ?! ?)))
(define (extract-active-events gestalt)
(define es (gestalt-project->finite-set gestalt 0 0 #f event-projection))
(define es (gestalt-project-key-set gestalt 0 0 #f event-projection))
;; TODO: how should the following error be handled, ideally?
;; In principle, security restrictions should make it impossible.
;; But absent those, what should be done? Should an offending