reset *fn-context?* for subqueries

This commit is contained in:
Justin Kramer 2012-10-18 22:00:07 -04:00
parent 7771a386ea
commit bea39e3527

View file

@ -179,7 +179,8 @@
(-to-sql [x] (let [clause-ops (concat (-to-sql [x] (let [clause-ops (concat
(filter #(contains? x %) clause-order) (filter #(contains? x %) clause-order)
(remove known-clauses (keys x))) (remove known-clauses (keys x)))
sql-str (binding [*subquery?* true] sql-str (binding [*subquery?* true
*fn-context?* false]
(space-join (space-join
(map (comp #(format-clause % x) #(find x %)) (map (comp #(format-clause % x) #(find x %))
clause-ops)))] clause-ops)))]