luciano/pods
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix #65, fix warnings when defining var with core name

Browse source
This commit is contained in:
Michiel Borkent 2023-04-02 11:25:51 +02:00
parent 75c2216649
commit 1635931483
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/babashka/pods/jvm.clj
View file

@ -12,11 +12,12 @@
(defn- process-namespace [{:keys [:name :vars]}]
(binding [*ns* (load-string (format "(ns %s) *ns*" name))]
(doseq [[var-sym v] vars]
(when-let [maybe-core (some-> (ns-resolve *ns* var-sym) meta :ns str symbol)]
(when (= 'clojure.core maybe-core)
(ns-unmap *ns* var-sym)))
(cond
(ifn? v)
(do
(ns-unmap *ns* var-sym)
(intern name var-sym v))
(intern name var-sym v)
(string? v)
(load-string v)))))