return map from load-pod

src/babashka/pods/jvm.clj

@@ -17,7 +17,7 @@
              (string? v)
              (load-string v)))))
      (future (impl/processor pod))
-     (:pod-id pod))))
+     {:pod/id (:pod-id pod)})))
 
 (defn unload-pod
   ([pod-id] (unload-pod pod-id {}))

src/babashka/pods/sci.clj

@@ -24,7 +24,7 @@
                      (string? var-value)
                      (sci/eval-string* ctx var-value)))))
          (sci/future (impl/processor pod))
-         (:pod-id pod))))
+         {:pod/id (:pod-id pod)})))
     {:sci.impl/op :needs-ctx}))
 
 (defn unload-pod

test-resources/test_program.clj

@@ -1,5 +1,5 @@
 (require '[babashka.pods :as pods])
-(def pod-id (pods/load-pod ["clojure" "-A:test-pod"]))
+(def pod-id (:pod/id (pods/load-pod ["clojure" "-A:test-pod"])))
 (require '[pod.test-pod :as pod])
 (def pod-ns-name (ns-name (find-ns 'pod.test-pod)))