From 7f5fa1d7c810109cc66c242e504f99afeac89059 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 17 Jun 2014 12:06:16 -0400 Subject: [PATCH] Queries are at level 1 --- arp.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/arp.rkt b/arp.rkt index 5d3faa6..6ad7d06 100644 --- a/arp.rkt +++ b/arp.rkt @@ -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)))