coerce to avoid reflection on Character/isDigit

clojure · Jan 17, 2025 · ae8557b · ae8557b
1 parent f8f44e0
commit ae8557b
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/main/clojure/clojure/tools/analyzer/jvm.clj b/src/main/clojure/clojure/tools/analyzer/jvm.clj
@@ -128,7 +128,7 @@
                          (maybe-class-literal sym-ns))]          ;; Class/field
       (let [opname (name form)]
         (if (and (= (count opname) 1)
-                 (Character/isDigit (first opname)))
+                 (Character/isDigit (char (first opname))))
           form ;; Array/<n>
           (with-meta (list '. target (symbol (str "-" opname))) ;; transform to (. Class -field)
             (meta form))))

diff --git a/src/main/clojure/clojure/tools/analyzer/jvm/utils.clj b/src/main/clojure/clojure/tools/analyzer/jvm/utils.clj
@@ -96,7 +96,7 @@
 (defn maybe-array-class-sym [x]
   (let [sname (name x)]
     (if-let [c (and (= (count sname) 1)
-                    (Character/isDigit (first sname))
+                    (Character/isDigit (char (first sname)))
                     (namespace x))]
       (when-let [c (or (specials c)
                        (maybe-class-from-string c))]