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

fix unsafe extensions of protocols to native javascript objects

Browse source
This commit is contained in:
Nathan Marz 2015-07-03 15:29:14 -04:00
parent 052d541f8e
commit 6440e4e605
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/com/rpl/specter.cljc
View file

@ -169,7 +169,7 @@
(assoc structure kw (next-fn (get structure kw)))
))
(extend-type #?(:clj clojure.lang.AFn :cljs js/Function)
(extend-type #?(:clj clojure.lang.AFn :cljs function)
StructurePath
(select* [afn structure next-fn]
(i/filter-select afn structure next-fn))

6
src/com/rpl/specter/impl.cljc
View file

@ -214,7 +214,7 @@
(coerce-path (vec this)))
])
#?(:clj Object :cljs js/Object)
#?(:clj Object :cljs object)
(coerce-path [this]
(cond (structure-path? this) (coerce-structure-path this)
(obj-extends? `p/Collector this) (coerce-collector this)
@ -273,7 +273,7 @@
nil
(comp-paths* [sp]
(coerce-path sp))
#?(:clj Object :cljs js/Object)
#?(:clj Object :cljs object)
(comp-paths* [sp]
(coerce-path sp))
#?(:clj java.util.List :cljs cljs.core/PersistentVector)
@ -353,7 +353,7 @@
(assoc v 0 val))
(set-last [v val]
(assoc v (-> v count dec) val))
#?(:clj Object :cljs js/Object)
#?(:clj Object :cljs object)
(set-first [l val]
(set-first-list l val))
(set-last [l val]