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

Use create-ns + *loaded-libs*

Browse source
This commit is contained in:
Michiel Borkent 2020-05-09 17:24:36 +02:00
parent 0b9bdee8cc
commit 2bbc8fa5ff
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -7,8 +7,8 @@
(let [pod (impl/load-pod pod-spec _opts) (let [pod (impl/load-pod pod-spec _opts)
namespaces (:namespaces pod)] namespaces (:namespaces pod)]
(doseq [[ns-sym v] namespaces] (doseq [[ns-sym v] namespaces]
(load-string (format "(ns %s)" ns-sym)) (binding [*ns* (create-ns ns-sym)]
(dosync (commute @#'clojure.core/*loaded-libs* conj ns-sym)))
(doseq [[var-sym v] v] (doseq [[var-sym v] v]
(ns-unmap ns-sym var-sym)
(intern ns-sym var-sym v))) (intern ns-sym var-sym v)))
(future (impl/processor pod))))) (future (impl/processor pod)))))