TANAL-57: don't tag with a Class static calls targets

clojure · Jan 15, 2014 · f676e1d · f676e1d
1 parent 64ecab7
commit f676e1d
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/main/clojure/clojure/tools/analyzer/jvm.clj b/src/main/clojure/clojure/tools/analyzer/jvm.clj
@@ -85,7 +85,8 @@
           (let [[target & args] expr
                 target (if-let [target (and (not (get (:locals env) target))
                                             (maybe-class target))]
-                         (with-meta (list 'clojure.core/identity target) {:tag Class})
+                         (with-meta (list 'clojure.core/identity target)
+                           {:tag 'java.lang.Class})
                          target)
                 args (list* (symbol (subs opname 1)) args)]
             (with-meta (list '. target (if (= 1 (count args)) ;; we don't know if (.foo bar) is