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

Merge branch 'master' into traverse

Browse source
This commit is contained in:
Nathan Marz 2016-06-09 17:32:46 -04:00
commit 9ac9771a0e
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/clj/com/rpl/specter/impl.cljx
View file

@ -544,7 +544,8 @@
(assoc v 0 (afn val)) (assoc v 0 (afn val))
)) ))
(update-last [v afn] (update-last [v afn]
(let [c (vec-count v)] ;; type-hinting vec-count to ^int caused weird errors with case
(let [c (int (vec-count v))]
(case c (case c
1 (let [[e] v] [(afn e)]) 1 (let [[e] v] [(afn e)])
2 (let [[e1 e2] v] [e1 (afn e2)]) 2 (let [[e1 e2] v] [e1 (afn e2)])