Merge pull request #20 from jpmonettas/respect-line-and-column-meta

Respect forms :line and :column meta when provided
clojure · Nov 8, 2023 · d57677a · d57677a
2 parents 3213e8f + 88d47e6
commit d57677a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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))