feat: emit-form preserves param-tags if needed

Author: bronsa

src/main/clojure/clojure/tools/analyzer/passes/jvm/emit_form.clj

@@ -113,23 +113,36 @@
                           tests thens))
           ~switch-type ~test-type ~skip-check?))
 
+(defmethod -emit-form :new
+  [{:keys [class args param-tags]} opts]
+  (if param-tags
+    (let [sym (symbol (class->str (:val class)) "new")
+          sym (vary-meta sym assoc :param-tags param-tags)]
+      `(~sym ~@(mapv #(-emit-form* % opts) args)))
+    `(new ~(-emit-form* class opts) ~@(mapv #(-emit-form* % opts) args))))
+
 (defmethod -emit-form :static-field
   [{:keys [class field]} opts]
   (symbol (class->str class) (name field)))
 
 (defmethod -emit-form :static-call
-  [{:keys [class method args]} opts]
-  `(~(symbol (class->str class) (name method))
-    ~@(mapv #(-emit-form* % opts) args)))
+  [{:keys [class method args param-tags]} opts]
+  (let [sym (symbol (class->str class) (name method))
+        sym (if param-tags (vary-meta sym assoc :param-tags param-tags) sym)]
+    `(~sym ~@(mapv #(-emit-form* % opts) args))))
 
 (defmethod -emit-form :instance-field
   [{:keys [instance field]} opts]
   `(~(symbol (str ".-" (name field))) ~(-emit-form* instance opts)))
 
 (defmethod -emit-form :instance-call
-  [{:keys [instance method args]} opts]
-  `(~(symbol (str "." (name method))) ~(-emit-form* instance opts)
-    ~@(mapv #(-emit-form* % opts) args)))
+  [{:keys [instance method args class param-tags]} opts]
+  (if param-tags
+    (let [sym (symbol (class->str class) (str "." (name method)))
+          sym (vary-meta sym assoc :param-tags param-tags)]
+      `(~sym ~(-emit-form* instance opts) ~@(mapv #(-emit-form* % opts) args)))
+    `(~(symbol (str "." (name method))) ~(-emit-form* instance opts)
+      ~@(mapv #(-emit-form* % opts) args))))
 
 (defmethod -emit-form :prim-invoke
   [{:keys [fn args]} opts]