More analyzer opt

alexander-yakushev · alexander-yakushev · commit 37c768fc1f4d · 2024-08-28T14:11:00.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
@@ -268,21 +268,22 @@
 
 :default
 
-(defn ^Class unbox
-  "If the argument is a Class with a primitive equivalent, returns that,
+(do (def ^:private classes-with-primitives
+      {Integer   Integer/TYPE,
+       Long      Long/TYPE,
+       Float     Float/TYPE,
+       Short     Short/TYPE,
+       Boolean   Boolean/TYPE,
+       Byte      Byte/TYPE,
+       Character Character/TYPE,
+       Double    Double/TYPE,
+       Void      Void/TYPE})
+
+    (defn ^Class unbox
+      "If the argument is a Class with a primitive equivalent, returns that,
    otherwise returns the argument"
-  [c]
-  ({Integer   Integer/TYPE,
-    Long      Long/TYPE,
-    Float     Float/TYPE,
-    Short     Short/TYPE,
-    Boolean   Boolean/TYPE,
-    Byte      Byte/TYPE,
-    Character Character/TYPE,
-    Double    Double/TYPE,
-    Void      Void/TYPE}
-   c c))
-)
+      [c]
+      (classes-with-primitives c c))))
 
 (defn numeric?
   "Returns true if the given class is numeric"
diff --git a/typed/cljc.analyzer/src/typed/cljc/analyzer/utils.cljc b/typed/cljc.analyzer/src/typed/cljc/analyzer/utils.cljc
@@ -203,21 +203,32 @@
 
 (defn- -source-info-into-transient!
   "Like `-source-info`, but returns a raw transient."
-  [x env dest]
-  (let [t (->> dest
-               (source-info-into-transient! env)
-               (source-info-into-transient! (meta x)))]
-    (if-let [file (let [file #?(:cljs cljs-ana/*cljs-file*
-                                :default *file*)]
-                    (and (not= file "NO_SOURCE_FILE")
-                         file))]
-      (assoc! t :file file)
-      t)))
+  ([x dest]
+   (let [t (source-info-into-transient! (meta x) dest)]
+     (if-let [file (let [file #?(:cljs cljs-ana/*cljs-file*
+                                 :default *file*)]
+                     (and (not= file "NO_SOURCE_FILE")
+                          file))]
+       (assoc! t :file file)
+       t)))
+  ([x env dest]
+   (let [t (->> dest
+                (source-info-into-transient! env)
+                (source-info-into-transient! (meta x)))]
+     (if-let [file (let [file #?(:cljs cljs-ana/*cljs-file*
+                                 :default *file*)]
+                     (and (not= file "NO_SOURCE_FILE")
+                          file))]
+       (assoc! t :file file)
+       t))))
 
 (defn -source-info
   "Returns the source-info of x"
   ([x env] (-source-info x env {}))
-  ([x env base] (persistent! (-source-info-into-transient! x env (transient base)))))
+  ([x env base]
+   (if (identical? env base)
+     (persistent! (-source-info-into-transient! x (transient base)))
+     (persistent! (-source-info-into-transient! x env (transient base))))))
 
 (defn const-val
   "Returns the value of a constant node (either :quote or :const)"
