summaryrefslogtreecommitdiff
path: root/src/clojure_sql
diff options
context:
space:
mode:
authorCarlo Zancanaro <carlo@clearboxsystems.com.au>2013-06-20 15:51:42 +1000
committerCarlo Zancanaro <carlo@clearboxsystems.com.au>2013-06-20 15:51:42 +1000
commit42864b332fe75ca4fe01d61a579a8bc50e0d2862 (patch)
tree1566a5ad9363d0b142e79d267f662631ed428f19 /src/clojure_sql
parent54c6a5dec031de59dad385d4ba2ccda09a70ec2a (diff)
Fix a stupid null-pointer exception
Diffstat (limited to 'src/clojure_sql')
-rw-r--r--src/clojure_sql/compiler.clj3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/clojure_sql/compiler.clj b/src/clojure_sql/compiler.clj
index c7f907f..b35abce 100644
--- a/src/clojure_sql/compiler.clj
+++ b/src/clojure_sql/compiler.clj
@@ -93,7 +93,8 @@
(no-args-operator-error (name (first ex))))
1 (if (unary? op-name)
(do-m compiled-op <- op
- (return (str compiled-op (first vals)))))
+ (return (str compiled-op (first vals))))
+ (return (first vals)))
(return (string/join " " vals))))
unary? (do (assert (= num-args 1) (str "Unary operator `" (first ex) "` must take one argument"))
(do-m :let [exprs (compile-exprs ex)]