From 201b2f194a0e71d4d9a5c195b51a5ea9286477ff Mon Sep 17 00:00:00 2001
From: Michiel Borkent <michielborkent@gmail.com>
Date: Mon, 25 May 2020 13:55:10 +0200
Subject: [PATCH] wip

---
 src/babashka/pods/sci.clj | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/src/babashka/pods/sci.clj b/src/babashka/pods/sci.clj
index 5defed5..afd8824 100644
--- a/src/babashka/pods/sci.clj
+++ b/src/babashka/pods/sci.clj
@@ -7,7 +7,19 @@
     (fn
       ([ctx pod-spec] (load-pod ctx pod-spec nil))
       ([ctx pod-spec _opts]
-       (let [env (:env ctx)
+       (let [ns-load-fns (atom {})
+             load-fn (fn load-fn [{:keys [:namespace]}]
+                       (when-let [f (get @ns-load-fns namespace)]
+                         (f)
+                         ;; return empty source, for sci to evaluate
+                         ""))
+             env (:env ctx)
+             prev-load-fn (:load-fn @env)
+             new-load-fn (fn [m]
+                           (or (load-fn m)
+                               (when prev-load-fn
+                                 (prev-load-fn m))))
+             _ (swap! env assoc :load-fn new-load-fn)
              pod (binding [*out* @sci/out
                            *err* @sci/err]
                    (impl/load-pod