gestalt-project->finite-set -> gestalt-project-key-set
This commit is contained in:
parent
2ccd066012
commit
0cfa2bfe16
|
@ -30,7 +30,7 @@
|
||||||
gestalt-ref
|
gestalt-ref
|
||||||
compile-gestalt-projection
|
compile-gestalt-projection
|
||||||
gestalt-project
|
gestalt-project
|
||||||
gestalt-project->finite-set
|
gestalt-project-key-set
|
||||||
pretty-print-gestalt
|
pretty-print-gestalt
|
||||||
|
|
||||||
spawn
|
spawn
|
||||||
|
|
|
@ -10,7 +10,7 @@
|
||||||
gestalt-ref
|
gestalt-ref
|
||||||
compile-gestalt-projection
|
compile-gestalt-projection
|
||||||
gestalt-project
|
gestalt-project
|
||||||
gestalt-project->finite-set
|
gestalt-project-key-set
|
||||||
drop-gestalt
|
drop-gestalt
|
||||||
lift-gestalt
|
lift-gestalt
|
||||||
simple-gestalt
|
simple-gestalt
|
||||||
|
@ -72,8 +72,8 @@
|
||||||
(define (gestalt-project g metalevel level get-advertisements? capture-spec)
|
(define (gestalt-project g metalevel level get-advertisements? capture-spec)
|
||||||
(matcher-project (gestalt-ref 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)
|
(define (gestalt-project-key-set g metalevel level get-advertisements? capture-spec)
|
||||||
(matcher->finite-set (gestalt-project g metalevel level get-advertisements? capture-spec)))
|
(matcher-key-set (gestalt-project g metalevel level get-advertisements? capture-spec)))
|
||||||
|
|
||||||
(define (drop-gestalt g)
|
(define (drop-gestalt g)
|
||||||
(match-define (gestalt metalevels) g)
|
(match-define (gestalt metalevels) g)
|
||||||
|
|
|
@ -16,7 +16,7 @@
|
||||||
(define event-projection (compile-gestalt-projection (event ?! ?)))
|
(define event-projection (compile-gestalt-projection (event ?! ?)))
|
||||||
|
|
||||||
(define (extract-active-events gestalt)
|
(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?
|
;; TODO: how should the following error be handled, ideally?
|
||||||
;; In principle, security restrictions should make it impossible.
|
;; In principle, security restrictions should make it impossible.
|
||||||
;; But absent those, what should be done? Should an offending
|
;; But absent those, what should be done? Should an offending
|
||||||
|
|
Loading…
Reference in New Issue