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

improve execution of kws

Browse source
This commit is contained in:
Nathan Marz 2015-05-11 14:02:08 -04:00
parent e0bde53fef
commit cd994b10ee
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -159,11 +159,10 @@
(extend-type clojure.lang.Keyword
StructurePath
;; faster to invoke keyword directly on structure rather than reuse key-select and key-update functions
(select* [^clojure.lang.Keyword kw structure next-fn]
(next-fn (kw structure)))
(update* [^clojure.lang.Keyword kw structure next-fn]
(assoc structure kw (next-fn (kw structure)))
(select* [kw structure next-fn]
(next-fn (get structure kw)))
(update* [kw structure next-fn]
(assoc structure kw (next-fn (get structure kw)))
))
(extend-type clojure.lang.AFn