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

Provide an identity for set-union

This commit is contained in:
Tony Garnock-Jones 2014-06-14 18:56:52 -04:00
parent ef4d47c67a
commit 44d5dfa528
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
minimart/gestalt.rkt
View File

@ -115,7 +115,7 @@
(define (gestalt-match-value g body metalevel is-feedback?)
(define extract-matcher (if is-feedback? cdr car)) ;; feedback targets advertisers/publishers
(define (pids-at level) (matcher-match-value (extract-matcher level) body))
(apply set-union (map pids-at (gestalt-metalevel-ref g metalevel))))
(apply set-union (set) (map pids-at (gestalt-metalevel-ref g metalevel))))
;; (Listof Projection) -> CompiledProjection
;; For use with gestalt-project.