eliminate warning about intern for bootstrap cljs
This commit is contained in:
parent
2412d90f71
commit
c81ba0196f
2 changed files with 8 additions and 1 deletions
|
|
@ -66,6 +66,13 @@
|
||||||
(macroexpand' x)
|
(macroexpand' x)
|
||||||
x)) form))
|
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
|
#+clj
|
||||||
(defn do-macroexpand-all [form]
|
(defn do-macroexpand-all [form]
|
||||||
(riddley/macroexpand-all form))
|
(riddley/macroexpand-all form))
|
||||||
|
|
|
||||||
|
|
@ -496,7 +496,7 @@
|
||||||
))
|
))
|
||||||
]
|
]
|
||||||
(if (= platform :clj)
|
(if (= platform :clj)
|
||||||
(intern *ns* cache-sym (i/mutable-cell)))
|
(i/intern* *ns* cache-sym (i/mutable-cell)))
|
||||||
`(let [info# ~get-cache-code
|
`(let [info# ~get-cache-code
|
||||||
|
|
||||||
^com.rpl.specter.impl.CachedPathInfo info#
|
^com.rpl.specter.impl.CachedPathInfo info#
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue