From c81ba0196f5fbd0c8bdfd81ad9930079e14bfe8d Mon Sep 17 00:00:00 2001
From: Nathan Marz <nathan@nathanmarz.com>
Date: Mon, 6 Jun 2016 07:38:21 -0400
Subject: [PATCH] eliminate warning about intern for bootstrap cljs

---
 src/clj/com/rpl/specter/impl.cljx  | 7 +++++++
 src/clj/com/rpl/specter/macros.clj | 2 +-
 2 files changed, 8 insertions(+), 1 deletion(-)

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#