diff --git a/src/com/rpl/specter.cljc b/src/com/rpl/specter.cljc index 59ed753..2863f48 100644 --- a/src/com/rpl/specter.cljc +++ b/src/com/rpl/specter.cljc @@ -162,7 +162,7 @@ (defn codewalker [afn] (i/->CodeWalkerStructurePath afn)) (defn filterer [& path] - (params-paramspath [late (i/comp-paths* path)] + (params-paramspath [late path] (select* [this structure next-fn] (->> structure (filter #(i/selected?* late %)) doall next-fn)) (transform* [this structure next-fn] diff --git a/src/com/rpl/specter/impl.cljc b/src/com/rpl/specter/impl.cljc index 79c3e98..101da23 100644 --- a/src/com/rpl/specter/impl.cljc +++ b/src/com/rpl/specter/impl.cljc @@ -381,7 +381,7 @@ )) ))) [])) - binding-decls (mapcat (fn [b] [(:path-sym b) (:path b)]) bindings) + binding-decls (mapcat (fn [b] [(:path-sym b) `(comp-paths* ~(:path b))]) bindings) offset-decls (mapcat (fn [b] [(:offset-sym b) (:offset b)]) bindings) needed-params (map (fn [b] `(num-needed-params ~(:path-sym b))) bindings) latefn-decls (mapcat