diff --git a/pods b/pods index 82aa3627..1fdd8231 160000 --- a/pods +++ b/pods @@ -1 +1 @@ -Subproject commit 82aa3627106181a0ad58c289cd45129603e4fa24 +Subproject commit 1fdd8231bd3a396c4d12c40fecc9dd0328b288d3 diff --git a/src/babashka/impl/pods.clj b/src/babashka/impl/pods.clj index d7e579f2..cf23c0c7 100644 --- a/src/babashka/impl/pods.clj +++ b/src/babashka/impl/pods.clj @@ -2,10 +2,17 @@ {:no-doc true} (:refer-clojure :exclude [read]) (:require [babashka.impl.common :refer [ctx]] - [babashka.pods.sci :as pods])) + [babashka.pods.sci :as pods] + [sci.core :as sci])) + +(defn load-pod [& args] + (apply pods/load-pod @ctx args)) + +(def podns (sci/create-ns 'babashka.pods nil)) (def pods-namespace - {'load-pod (fn [& args] - (apply pods/load-pod @ctx args)) - 'invoke pods/invoke - 'unload-pod pods/unload-pod}) + {'load-pod (sci/copy-var load-pod podns) + 'invoke (sci/copy-var pods/invoke podns) + 'unload-pod (sci/copy-var pods/unload-pod podns) + 'add-transit-read-handler (sci/copy-var pods/add-transit-read-handler podns) + 'add-transit-write-handler (sci/copy-var pods/add-transit-write-handler podns)})