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

Ugh, stupid undefined-variable

This commit is contained in:
Tony Garnock-Jones 2014-06-14 13:47:47 -04:00
parent 9b05906efb
commit 646b9b9197
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
minimart/gestalt.rkt
View File

@ -137,8 +137,8 @@
;; representing subscriptions or advertisements, projected by capture-spec.
(define (gestalt-project g metalevel level get-advertisements? capture-spec)
(define extract-matcher (if get-advertisements? cdr car))
(define level (safe-list-ref (gestalt-metalevel-ref g metalevel) level (lambda () empty-level)))
(define matcher (extract-matcher level))
(define l (safe-list-ref (gestalt-metalevel-ref g metalevel) level (lambda () empty-level)))
(define matcher (extract-matcher l))
(if (equal? capture-spec capture-everything-projection) ;; efficiency hack. Avoid projecting by identity
matcher
(matcher-project matcher capture-spec)))