luciano/specter
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

another perf enhancement

Browse source
This commit is contained in:
Nathan Marz 2016-09-01 23:20:53 -04:00
parent dc6740d9dc
commit 1d52e970a0
1 changed files with 22 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
src/clj/com/rpl/specter/impl.cljc
View file

@ -257,16 +257,28 @@
(set-cell! cell ret)
ret))
;; TODO: this used to be a macro for clj... check if that's still important
(defn compiled-traverse* [path result-fn structure]
(exec-select*
path
[]
structure
(fn [vals structure]
(if (identical? vals [])
(result-fn structure)
(result-fn (conj vals structure))))))
#?(
:clj
(defmacro compiled-traverse* [path result-fn structure]
`(exec-select*
~path
[]
~structure
(fn [vals# structure#]
(if (identical? vals# [])
(~result-fn structure#)
(~result-fn (conj vals# structure#))))))
:cljs
(defn compiled-traverse* [path result-fn structure]
(exec-select*
path
[]
structure
(fn [vals structure]
(if (identical? vals [])
(result-fn structure)
(result-fn (conj vals structure)))))))