This commit is contained in:
Michiel Borkent 2020-05-26 11:59:13 +02:00
parent 11199be349
commit f021e2384b

View file

@ -5,7 +5,7 @@
(defn- process-namespace [ctx {:keys [:name :vars]}] (defn- process-namespace [ctx {:keys [:name :vars]}]
(let [env (:env ctx) (let [env (:env ctx)
ns-name name ns-name name
sci-ns (sci/create-ns ns-name)] sci-ns (sci/create-ns (symbol ns-name))]
(sci/binding [sci/ns sci-ns] (sci/binding [sci/ns sci-ns]
(doseq [[var-name var-value] vars] (doseq [[var-name var-value] vars]
(cond (ifn? var-value) (cond (ifn? var-value)