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

extend ALL to records (for walker reimplementation)

Browse source
This commit is contained in:
nathanmarz 2017-06-01 01:27:24 -04:00
parent 550d486954
commit e8f15c4137
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -129,6 +129,13 @@
(all-transform [structure next-fn] (all-transform [structure next-fn]
(non-transient-map-all-transform structure next-fn (empty structure))) (non-transient-map-all-transform structure next-fn (empty structure)))
clojure.lang.IRecord
(all-transform [structure next-fn]
(reduce
(fn [res kv] (conj res (next-fn kv)))
structure
structure
))
#?(:clj clojure.lang.PersistentHashMap :cljs cljs.core/PersistentHashMap) #?(:clj clojure.lang.PersistentHashMap :cljs cljs.core/PersistentHashMap)
(all-transform [structure next-fn] (all-transform [structure next-fn]