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

Queries are at level 1

This commit is contained in:
Tony Garnock-Jones 2014-06-17 12:06:16 -04:00
parent 7f18a83606
commit 7f5fa1d7c8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
arp.rkt
View File

@ -117,7 +117,7 @@
(define queries-projection (compile-gestalt-projection (arp-query (?!) (?!) ?)))
(define (gestalt->queries g)
(for/set [(e (in-set (matcher-key-set (gestalt-project g 0 0 #f queries-projection))))]
(for/set [(e (in-set (matcher-key-set (gestalt-project g 0 1 #f queries-projection))))]
(match-define (list ptype pa) e)
(cache-key ptype pa)))