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

change nthpath to richnav for performance

Browse source
This commit is contained in:
nathanmarz 2017-02-14 14:33:46 -05:00
parent 71ed0ffae9
commit d595b9f26b
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/clj/com/rpl/specter/navs.cljc
View file

@ -506,15 +506,15 @@
(do-keypath-transform vals structure k next-fn)
structure)))
(defnav nthpath*
(defrichnav nthpath*
^{:doc "Navigates to the given position in the sequence. Setting the value to NONE
will remove it from the sequence. Works for all sequence types."}
[i]
(select* [this structure next-fn]
(next-fn (nth structure i)))
(transform* [this structure next-fn]
(select* [this vals structure next-fn]
(next-fn vals (nth structure i)))
(transform* [this vals structure next-fn]
(if (vector? structure)
(let [newv (next-fn (nth structure i))]
(let [newv (next-fn vals (nth structure i))]
(if (identical? newv i/NONE)
(i/srange-transform* structure i (inc i) (fn [_] []))
(assoc structure i newv)))
@ -523,7 +523,7 @@
i
(inc i)
(fn [[e]]
(let [v (next-fn e)]
(let [v (next-fn vals e)]
(if (identical? v i/NONE)
[]
[v])