fix utils

alexander-yakushev · alexander-yakushev · commit dabff911ef53 · 2024-07-09T00:32:55.000+03:00
diff --git a/typed/clj.analyzer/src/typed/clj/analyzer/utils.cljc b/typed/clj.analyzer/src/typed/clj/analyzer/utils.cljc
@@ -499,9 +499,12 @@
   "Given a vector of arg tags and a collection of methods, tries to return the
    subset of methods that match best the given tags"
   [tags methods]
-  (let [o-tags (mapv #(or (maybe-class %) Object) tags)]
-    (if-let [methods (or (seq (filterv #(= o-tags (mapv maybe-class (:parameter-types %))) methods))
-                         (seq (filterv #(tag-match? tags %) methods)))]
+  (let [o-tags (mapv #(or (maybe-class %) Object) tags)
+        methods' (filterv #(= o-tags (mapv maybe-class (:parameter-types %)))
+                          methods)
+        methods' (if (seq methods') methods'
+                     (filterv #(tag-match? tags %) methods))]
+    (if (seq methods')
       (reduce (fn [[prev & _ :as p] next]
                 (let [prev-params (mapv maybe-class (:parameter-types prev))
                       next-params (mapv maybe-class (:parameter-types next))
@@ -532,7 +535,7 @@
                         (not-any? true? (map subsumes? prev-params next-params)))
                    [next]
                    :else
-                   (conj p next)))) [] methods)
+                   (conj p next)))) [] methods')
       methods)))
 
 (defn ns->relpath [s]
