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)] (let [newi (next-fn vals i)]
(if (= newi i) (if (= newi i)
structure structure
(let [v (select-any (nthpath i) structure)] (let [v (nth structure i)]
(if (vector? structure) (if (vector? structure)
(let [shifted (if (< newi i) (let [shifted (if (< newi i)
(loop [j (dec i) (loop [j (dec i)