diff options
Diffstat (limited to 'src/clojure/contrib/sql/sql.clj')
| -rw-r--r-- | src/clojure/contrib/sql/sql.clj | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/clojure/contrib/sql/sql.clj b/src/clojure/contrib/sql/sql.clj index 630a082b..25a2e4ea 100644 --- a/src/clojure/contrib/sql/sql.clj +++ b/src/clojure/contrib/sql/sql.clj @@ -17,7 +17,7 @@ (ns clojure.contrib.sql (:use clojure.contrib.except - clojure.contrib.sql.internal)) + clojure.contrib.sql.internal)) (defmacro with-connection "Evaluates body in the context of a new connection to a database then @@ -114,10 +114,12 @@ (let [count (count (first values)) template (apply str (interpose "," (replicate count "?"))) cols (if (seq columns) - (format "(%s)" (apply str (interpose "," (map the-str columns)))) + (format "(%s)" + (apply str(interpose "," (map the-str columns)))) "")] (apply do-prepared - (format "insert into %s %s values (%s)" (the-str table) cols template) + (format "insert into %s %s values (%s)" + (the-str table) cols template) values))) (defn insert-rows |