Permalink
Browse files

Closes issues 81, 91 and 93 where the environment was capped when doi…

…ng UNION on a join
  • Loading branch information...
1 parent 8fe1f73 commit 20542de376a2a248ea3008b13556a7e889e7b64e @LauJensen committed Jan 14, 2012
Showing with 3 additions and 3 deletions.
  1. +3 −3 src/clojureql/sql92compiler.clj
@@ -45,10 +45,10 @@
mods (join-str \space (map upper-name modifiers))
combs (if (seq combinations)
(for [{:keys [table mode opts]} combinations]
- (let [[stmt & [env]] (compile table (or (:dialect cnx) :default))]
- [(format " %s (%s)"
+ (let [[stmt & [& env]] (compile table (or (:dialect cnx) :default))]
+ (into [(format " %s (%s)"
(str (upper-name mode) (if opts (str \space (upper-name opts))))
- stmt) env])))
+ stmt)] env))))
fields (when-not (table? tcols)
(str (if tcols (to-fieldlist tname tcols) "*")
(when (seq aliases)

0 comments on commit 20542de

Please sign in to comment.