[#981] Aliased keyword not detected in quoted forms

clj-kondo · Sep 1, 2020 · 09701bf · 09701bf
1 parent bb12c68
commit 09701bf
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/src/clj_kondo/impl/analyzer.clj b/src/clj_kondo/impl/analyzer.clj
@@ -1616,7 +1616,12 @@
                                    children))
         :fn (recur (assoc ctx :arg-types nil)
                    (macroexpand/expand-fn expr))
-        :token (when-not (or (:quoted ctx) (= :edn (:lang ctx))) (analyze-usages2 ctx expr))
+        :token
+        (if (:quoted ctx)
+          (when (:k expr)
+            (usages/analyze-keyword ctx expr))
+          (when-not (= :edn (:lang ctx))
+            (analyze-usages2 ctx expr)))
         :list
         (if-let [function (some->>
                            (first children)

diff --git a/test/clj_kondo/main_test.clj b/test/clj_kondo/main_test.clj
@@ -1759,7 +1759,8 @@ foo/foo ;; this does use the private var
   (is (empty? (lint! "(def x) (doto x)")))
   (is (empty? (lint! "(def ^:private a 1) (let [{:keys [a] :or {a a}} {}] a)"
                      {:linters {:unused-binding {:level :warning}}})))
-  (is (empty? (lint! "(scala.Int/MinValue)" {:linters {:unresolved-symbol {:level :error}}}))))
+  (is (empty? (lint! "(scala.Int/MinValue)" {:linters {:unresolved-symbol {:level :error}}})))
+  (is (empty? (lint! "(require '[clojure.string :as s]) '::s/foo"))))
 
 (deftest proxy-super-test
   (is (empty? (lint! "