From 6b64743315079a4147ecb93f5e61cd472c55a951 Mon Sep 17 00:00:00 2001 From: Mike Blume Date: Fri, 8 May 2015 14:20:24 -0700 Subject: [PATCH] add pname to *param-names* once per value keep *params* and *param-names* at the same count --- src/honeysql/format.clj | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/src/honeysql/format.clj b/src/honeysql/format.clj index 99f5f8b..0c04fe7 100644 --- a/src/honeysql/format.clj +++ b/src/honeysql/format.clj @@ -249,23 +249,23 @@ [sql-str])))) (defprotocol Parameterizable - (to-params [value])) + (to-params [value pname])) (extend-protocol Parameterizable clojure.lang.Sequential - (to-params [value] - (paren-wrap (comma-join (mapv to-params value)))) + (to-params [value pname] + (paren-wrap (comma-join (mapv #(to-params % pname) value)))) clojure.lang.IPersistentSet - (to-params [value] - (to-params (seq value))) + (to-params [value pname] + (to-params (seq value) pname)) java.lang.Object - (to-params [value] + (to-params [value pname] (swap! *params* conj value) + (swap! *param-names* conj pname) (*parameterizer*))) (defn add-param [pname pval] - (swap! *param-names* conj pname) - (to-params pval)) + (to-params pval pname)) ;; Anonymous param name -- :_1, :_2, etc. (defn add-anon-param [pval]