diff options
| author | scgilardi <scgilardi@gmail.com> | 2008-12-04 19:28:26 +0000 |
|---|---|---|
| committer | scgilardi <scgilardi@gmail.com> | 2008-12-04 19:28:26 +0000 |
| commit | bc6540e0e5e307b0b04b0f66d10289474a79cd70 (patch) | |
| tree | 5f6bd8f1363d00cd3e6d2b864890c2cf19e14ec0 /src/clojure/contrib/sql.clj | |
| parent | 8e199d4c239ecddf398872d473ddd6ff82bce558 (diff) | |
fix do-prepared iteration, broke svn 258 accidental checkin
Diffstat (limited to 'src/clojure/contrib/sql.clj')
| -rw-r--r-- | src/clojure/contrib/sql.clj | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/clojure/contrib/sql.clj b/src/clojure/contrib/sql.clj index 33bd2495..e4dbd5be 100644 --- a/src/clojure/contrib/sql.clj +++ b/src/clojure/contrib/sql.clj @@ -78,10 +78,10 @@ parameter sets" [sql & sets] (with-open [stmt (.prepareStatement (connection) sql)] - (doseq [set sets - [index value] (map vector (iterate inc 1) set)] - (.setObject stmt index value) - (.addBatch stmt)) + (doseq [set sets] + (doseq [[index value] (map vector (iterate inc 1) set)] + (.setObject stmt index value)) + (.addBatch stmt)) (.executeBatch stmt))) (defn create-table |