feat: don't desugar array/n into (. array -n)

clojure · Oct 18, 2024 · 082c814 · 082c814
1 parent f4cdf07
commit 082c814
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/src/main/clojure/clojure/tools/analyzer/jvm.clj b/src/main/clojure/clojure/tools/analyzer/jvm.clj
@@ -126,8 +126,12 @@
     (if-let [target (and sym-ns
                          (not (resolve-ns (symbol sym-ns) env))
                          (maybe-class-literal sym-ns))]          ;; Class/field
-      (with-meta (list '. target (symbol (str "-" (name form)))) ;; transform to (. Class -field)
-        (meta form))
+      (let [opname (name form)]
+        (if (and (= (count opname) 1)
+                 (Character/isDigit (first opname)))
+          form ;; Array/<n>
+          (with-meta (list '. target (symbol (str "-" opname))) ;; transform to (. Class -field)
+            (meta form))))
       form)))
 
 (defn desugar-host-expr [form env]