From 5e08fd199e133aa2a9f7156abb8d065826103ad4 Mon Sep 17 00:00:00 2001 From: Nathan Marz Date: Sat, 12 Sep 2015 13:16:58 -0400 Subject: [PATCH] cleanup capture-params-internally code --- src/com/rpl/specter/impl.cljc | 18 ++++++++---------- 1 file changed, 8 insertions(+), 10 deletions(-) diff --git a/src/com/rpl/specter/impl.cljc b/src/com/rpl/specter/impl.cljc index 32007b7..5b0bf6b 100644 --- a/src/com/rpl/specter/impl.cljc +++ b/src/com/rpl/specter/impl.cljc @@ -292,25 +292,24 @@ (if-not (instance? CompiledPath path) path (let [params (:params path) + params-idx (:params-idx path) selector (-> path :transform-fns :selector) transformer (-> path :transform-fns :transformer)] (if (empty? params) path - (->CompiledPath + (no-params-compiled-path (->TransformFunctions RichPathExecutor - (fn [x-params params-idx vals structure next-fn] - (selector params 0 vals structure + (fn [x-params x-params-idx vals structure next-fn] + (selector params params-idx vals structure (fn [_ _ vals-next structure-next] - (next-fn x-params params-idx vals-next structure-next) + (next-fn x-params x-params-idx vals-next structure-next) ))) - (fn [x-params params-idx vals structure next-fn] - (transformer params 0 vals structure + (fn [x-params x-params-idx vals structure next-fn] + (transformer params params-idx vals structure (fn [_ _ vals-next structure-next] - (next-fn x-params params-idx vals-next structure-next) + (next-fn x-params x-params-idx vals-next structure-next) )))) - params - 0 ))))) (extend-protocol PathComposer @@ -598,4 +597,3 @@ (if (afn structure) (next-fn structure) structure)) -