diff --git a/src/babashka/pods/sci.clj b/src/babashka/pods/sci.clj index 6de1045..de25524 100644 --- a/src/babashka/pods/sci.clj +++ b/src/babashka/pods/sci.clj @@ -6,6 +6,8 @@ (let [env (:env ctx) ns-name name sci-ns (sci/create-ns ns-name)] + #_(swap! env assoc-in [:namespaces ns-name :obj] + sci-ns) (sci/binding [sci/ns sci-ns] (doseq [[var-name var-value] vars] (cond (ifn? var-value) @@ -13,9 +15,8 @@ (sci/new-var (symbol (str ns-name) (str var-name)) var-value)) (string? var-value) - (do - (prn "eval" @sci/ns var-value) - (sci/eval-string* ctx var-value))))))) + (sci/eval-string* ctx var-value)))) + #_(prn (get-in @env [:namespaces ns-name])))) (def load-pod (with-meta diff --git a/test-resources/test_program.clj b/test-resources/test_program.clj index 1d878a6..ac41927 100644 --- a/test-resources/test_program.clj +++ b/test-resources/test_program.clj @@ -48,6 +48,7 @@ (require '[pod.test-pod.loaded]) +(prn (resolve 'pod.test-pod.loaded/loaded)) ;; nil... TODO (def loaded (pod.test-pod.loaded/loaded 1)) (pods/unload-pod pod-id) @@ -68,4 +69,4 @@ x9 tagged other-tagged - loaded] + #_loaded]