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

fix not-native tag for optimized cljs prot invocation

Browse source
This commit is contained in:
Nathan Marz 2015-07-03 17:40:13 -04:00
parent 66f992efa7
commit 1d93961cd3
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/com/rpl/specter/prot_opt_invoke.clj
View file

@ -1,10 +1,11 @@
(ns com.rpl.specter.prot-opt-invoke) (ns com.rpl.specter.prot-opt-invoke)
(defmacro mk-optimized-invocation [protocol obj method num-args] (defmacro mk-optimized-invocation [protocol obj method num-args]
(let [args (take num-args (repeatedly gensym))] (let [args (take num-args (repeatedly gensym))
o (-> (gensym) (with-meta {:tag 'not-native}))]
`(if (~'implements? ~protocol ~obj) `(if (~'implements? ~protocol ~obj)
(fn [^not-native o# ~@args] (fn [~o ~@args]
(~method o# ~@args) (~method ~o ~@args)
) )
~method ~method
))) )))