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

improve performance of non-compiled code path by 3x, remove ability for a vector to be considered a structurepath

Browse source
This commit is contained in:
Nathan Marz 2015-05-10 19:56:30 -04:00
parent 4e268629c3
commit c47650993d
2 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -153,7 +153,7 @@
e.g. (selected? :vals ALL even?) keeps the current element only if an
even number exists for the :vals key"
[& selectors]
(let [s (comp-paths selectors)]
(let [s (comp-paths* selectors)]
(fn [structure]
(->> structure
(select s)

10
src/clj/com/rpl/specter/impl.clj
View file

@ -97,17 +97,17 @@
updater (.updater sp)]
(->StructureValsPathFunctions
(fn [vals structure next-fn]
(selector vals structure
(curr-selector vals structure
(fn [vals-next structure-next]
(curr-selector vals-next structure-next next-fn)
(selector vals-next structure-next next-fn)
)))
(fn [vals structure next-fn]
(updater vals structure
(curr-updater vals structure
(fn [vals-next structure-next]
(curr-updater vals-next structure-next next-fn)
(updater vals-next structure-next next-fn)
)))
)))
(->> structure-paths flatten (map coerce-path) reverse))
(map coerce-path structure-paths))
))
;; cell implementation idea taken from prismatic schema library