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