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

Avoid laborious projection if all we're doing is capturing the whole thing anyway.

This commit is contained in:
Tony Garnock-Jones 2014-06-02 14:12:45 -04:00
parent 2014c22c41
commit bdab665e36
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
minimart/gestalt.rkt
View File

@ -92,12 +92,16 @@
(define (compile-gestalt-projection . specs)
(compile-gestalt-projection* specs))
(define capture-everything-projection (compile-gestalt-projection (?!)))
;; Gestalt × Natural × Natural × Boolean × CompiledSpec → Matcher
(define (gestalt-project g metalevel level get-advertisements? capture-spec)
(define levels (safe-list-ref (gestalt-metalevels g) metalevel (lambda () empty-metalevel)))
(define matcher ((if get-advertisements? cdr car)
(safe-list-ref levels level (lambda () empty-level))))
(matcher-project matcher capture-spec))
(if (equal? capture-spec capture-everything-projection)
matcher
(matcher-project matcher capture-spec)))
(define (drop-gestalt g)
(gestalt (safe-cdr (gestalt-metalevels g))))