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

allow updating sets

Browse source
This commit is contained in:
Sol Ackerman 2015-02-27 11:34:49 -06:00
parent 14944d2582
commit ea0cb032b3
1 changed files with 1 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -143,14 +143,7 @@
(into [] (r/mapcat (partial next-fn vals) structure))) (into [] (r/mapcat (partial next-fn vals) structure)))
(update* [this vals structure next-fn] (update* [this vals structure next-fn]
(let [ret (r/map (partial next-fn vals) structure)] (let [ret (r/map (partial next-fn vals) structure)]
(cond (vector? structure) (into (empty structure) ret))
(into [] ret)
(map? structure)
(into {} ret)
:else
(into '() ret)))
)) ))
(deftype ValStructurePath [] (deftype ValStructurePath []