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

fix #152

Browse source
This commit is contained in:
Nathan Marz 2016-10-14 09:52:12 -04:00
parent ea1f851d94
commit d9d6c8772e
1 changed files with 13 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
src/clj/com/rpl/specter/impl.cljc
View file

@ -96,11 +96,8 @@
#?( #?(
:clj :clj
(defmacro fast-object-array [i] (defmacro fast-object-array [i]
`(com.rpl.specter.Util/makeObjectArray ~i)) `(com.rpl.specter.Util/makeObjectArray ~i)))
:cljs
(defn fast-object-array [i]
(object-array i)))
(defn benchmark [iters afn] (defn benchmark [iters afn]
(time (time
@ -110,11 +107,12 @@
#?( #?(
:clj :clj
(defmacro exec-select* [this & args] (defmacro exec-select* [this & args]
(let [hinted (with-meta (gensym) {:tag 'com.rpl.specter.protocols.RichNavigator})] (let [platform (if (contains? &env :locals) :cljs :clj)
hinted (with-meta (gensym) {:tag 'com.rpl.specter.protocols.RichNavigator})]
(if (= platform :cljs)
`(p/select* ~this ~@args)
`(let [~hinted ~this] `(let [~hinted ~this]
(.select* ~hinted ~@args)))) (.select* ~hinted ~@args)))))
:cljs :cljs
(defn exec-select* [this vals structure next-fn] (defn exec-select* [this vals structure next-fn]
(p/select* ^not-native this vals structure next-fn))) (p/select* ^not-native this vals structure next-fn)))
@ -123,10 +121,12 @@
#?( #?(
:clj :clj
(defmacro exec-transform* [this & args] (defmacro exec-transform* [this & args]
(let [hinted (with-meta (gensym) {:tag 'com.rpl.specter.protocols.RichNavigator})] (let [platform (if (contains? &env :locals) :cljs :clj)
hinted (with-meta (gensym) {:tag 'com.rpl.specter.protocols.RichNavigator})]
(if (= platform :cljs)
`(p/transform* ~this ~@args)
`(let [~hinted ~this] `(let [~hinted ~this]
(.transform* ~hinted ~@args)))) (.transform* ~hinted ~@args)))))
:cljs :cljs
(defn exec-transform* [this vals structure next-fn] (defn exec-transform* [this vals structure next-fn]