From 88d47e6fb776135b4835c06b9e487bed7ec6c974 Mon Sep 17 00:00:00 2001 From: Juan Monetta Date: Tue, 26 Sep 2023 06:58:32 -0300 Subject: [PATCH] Respect forms :line and :column meta when provided --- src/main/clojure/clojure/tools/reader.clj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/main/clojure/clojure/tools/reader.clj b/src/main/clojure/clojure/tools/reader.clj index 2a23011..ac4aff7 100644 --- a/src/main/clojure/clojure/tools/reader.clj +++ b/src/main/clojure/clojure/tools/reader.clj @@ -378,7 +378,7 @@ (let [o (read* rdr true nil opts pending-forms)] (if (instance? IMeta o) (let [m (if (and line (seq? o)) - (assoc m :line line :column column) + (merge {:line line :column column} m) m)] (if (instance? IObj o) (with-meta o (merge (meta o) m))