eliminate warning about intern for bootstrap cljs

This commit is contained in:
Nathan Marz 2016-06-06 07:38:21 -04:00
parent 2412d90f71
commit c81ba0196f
2 changed files with 8 additions and 1 deletions

View file

@ -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))

View file

@ -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#