wip

Author: borkdude

src/sci/impl/cljs.cljc

@@ -5,7 +5,8 @@
 
 (macros/deftime
   #?(:clj (do (def cljs-ns-publics (resolve 'cljs.analyzer.api/ns-publics))
-              (def cljs-find-ns (resolve 'cljs.analyzer.api/find-ns))))
+              (def cljs-find-ns (resolve 'cljs.analyzer.api/find-ns))
+              (def cljs-resolve (resolve 'cljs.analyzer.api/resolve))))
   #_:clj-kondo/ignore
   (defmacro ^:private require-cljs-analyzer-api []
     (macros/? :clj

src/sci/impl/copy_vars.cljc

@@ -118,6 +118,11 @@
     [sym]
     `(copy-var ~sym clojure-core-ns {:copy-meta-from ~(core-sym sym)}))
 
+  (defmacro maybe-copy-core-var [sym]
+    (when (macros/? :clj (resolve sym)
+                    :cljs (sci.impl.cljs/cljs-resolve {} sym))
+      `(copy-var ~sym clojure-core-ns {:copy-meta-from ~(core-sym sym)})))
+
   (defmacro avoid-method-too-large [v]
     (macros/? :clj
               `(deref (delay ~v))