diff options
| author | Carlo Zancanaro <carlo@clearboxsystems.com.au> | 2013-06-20 15:51:42 +1000 |
|---|---|---|
| committer | Carlo Zancanaro <carlo@clearboxsystems.com.au> | 2013-06-20 15:51:42 +1000 |
| commit | 42864b332fe75ca4fe01d61a579a8bc50e0d2862 (patch) | |
| tree | 1566a5ad9363d0b142e79d267f662631ed428f19 | |
| parent | 54c6a5dec031de59dad385d4ba2ccda09a70ec2a (diff) | |
Fix a stupid null-pointer exception
| -rw-r--r-- | src/clojure_sql/compiler.clj | 3 |
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)] |