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

tighten code

Browse source
This commit is contained in:
nathanmarz 2017-07-24 13:02:19 -04:00
parent dbae629472
commit 03e686cd9c
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -970,7 +970,7 @@
(let [newi (next-fn vals i)]
(if (= newi i)
structure
(let [v (select-any (nthpath i) structure)]
(let [v (nth structure i)]
(if (vector? structure)
(let [shifted (if (< newi i)
(loop [j (dec i)