diff --git a/src/clj/com/rpl/specter/impl.cljx b/src/clj/com/rpl/specter/impl.cljx index 023390c..4ca0e79 100644 --- a/src/clj/com/rpl/specter/impl.cljx +++ b/src/clj/com/rpl/specter/impl.cljx @@ -66,6 +66,13 @@ (macroexpand' x) x)) form)) +#+clj +(defn intern* [ns name val] (intern ns name val)) + +#+cljs +(defn intern* [ns name val] + (throw-illegal "intern not supported in ClojureScript")) + #+clj (defn do-macroexpand-all [form] (riddley/macroexpand-all form)) diff --git a/src/clj/com/rpl/specter/macros.clj b/src/clj/com/rpl/specter/macros.clj index a90df04..4846233 100644 --- a/src/clj/com/rpl/specter/macros.clj +++ b/src/clj/com/rpl/specter/macros.clj @@ -496,7 +496,7 @@ )) ] (if (= platform :clj) - (intern *ns* cache-sym (i/mutable-cell))) + (i/intern* *ns* cache-sym (i/mutable-cell))) `(let [info# ~get-cache-code ^com.rpl.specter.impl.CachedPathInfo info#