diff --git a/CHANGELOG.md b/CHANGELOG.md index c6ec70c7..8db5d0ea 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -11,6 +11,7 @@ A preview of the next release can be installed from - Upgrade SCI reflector based on clojure 1.12 and remove specific workaround for `Thread/sleep` interop +- Add `tools.reader.edn/read` ## 1.4.192 (2024-09-12) diff --git a/src/babashka/impl/clojure/tools/reader_types.clj b/src/babashka/impl/clojure/tools/reader_types.clj index 87c8594f..9d5e518a 100644 --- a/src/babashka/impl/clojure/tools/reader_types.clj +++ b/src/babashka/impl/clojure/tools/reader_types.clj @@ -3,7 +3,10 @@ [clojure.tools.reader.reader-types :as rt] [sci.core :as sci])) -(def edn-namespace {'read-string (sci/copy-var edn/read-string (sci/create-ns 'clojure.tools.reader.edn))}) +(def tr-edn-ns (sci/create-ns 'clojure.tools.reader.edn)) + +(def edn-namespace {'read-string (sci/copy-var edn/read-string tr-edn-ns) + 'read (sci/copy-var edn/read tr-edn-ns)}) (def rtns (sci/create-ns 'clojure.tools.reader.reader-types)) diff --git a/src/babashka/main.clj b/src/babashka/main.clj index 995da29d..5bc42ede 100644 --- a/src/babashka/main.clj +++ b/src/babashka/main.clj @@ -916,7 +916,7 @@ Use bb run --help to show this help output. res))) (let [rps (cp/resource-paths namespace) rps (mapv #(str "src/babashka/" %) rps)] - (when-let [url (some #(io/resource %) rps)] + (when-let [url (some io/resource rps)] (let [source (slurp url)] {:file (str url) :source source})))