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

add update-fast

Browse source
This commit is contained in:
Nathan Marz 2015-05-10 08:09:48 -04:00
parent 47aee4d000
commit b20d035950
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/clj/com/rpl/specter.clj
View file

@ -67,6 +67,15 @@
(apply update-fn (conj vals structure))) (apply update-fn (conj vals structure)))
)))) ))))
(defn update-fast [^com.rpl.specter.impl.StructureValsPathFunctions selfns update-fn structure]
((.updater selfns) [] structure
(fn [vals structure]
(if (empty? vals)
(update-fn structure)
(apply update-fn (conj vals structure)))
))
)
(defn setval (defn setval
"Navigates to each value specified by the selector and replaces it by val" "Navigates to each value specified by the selector and replaces it by val"
[selector val structure] [selector val structure]