feat: hook into analyze_host_expr

clojure · Oct 18, 2024 · 5374a89 · 5374a89
1 parent f2c6747
commit 5374a89
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/src/main/clojure/clojure/tools/analyzer/passes/jvm/analyze_host_expr.clj b/src/main/clojure/clojure/tools/analyzer/passes/jvm/analyze_host_expr.clj
@@ -142,8 +142,8 @@
 (defn analyze-host-expr
   "Performing some reflection, transforms :host-interop/:host-call/:host-field
    nodes in either: :static-field, :static-call, :instance-call, :instance-field
-   or :host-interop nodes, and a :var or :maybe-class node in a :const :class node,
-   if necessary (class literals shadow Vars).
+   or :host-interop nodes, and a :var/:maybe-class/:maybe-host-form node in a
+   :const :class node, if necessary (class literals shadow Vars).
 
    A :host-interop node represents either an instance-field or a no-arg instance-method. "
   {:pass-info {:walk :post :depends #{}}}
@@ -189,4 +189,10 @@
       (assoc (ana/analyze-const the-class env :class) :form form)
       ast)
 
+    :maybe-host-form
+    (if-let [the-class (maybe-array-class-sym (symbol (str (:class ast))
+                                                      (str (:field ast))))]
+      (assoc (ana/analyze-const the-class env :class) :form form)
+      ast)
+
     ast))