CLJS-2323: Wrong return value for data readers with records

add analyzer-record case to analyzer. add emission for record values.

still need to finish test case

Author: swannodette

src/main/clojure/cljs/analyzer.cljc

@@ -3406,6 +3406,25 @@
      :children items
      :tag (if (map? val) 'object 'array)}))
 
+(defn analyze-record
+  [env x]
+  (let [items     (disallowing-recur
+                    (analyze (assoc env :context :expr) (into {} x)))
+        [ns name] (map symbol
+                    #?(:clj
+                       ((juxt (comp #(string/join "." %) butlast) last)
+                         (string/split (.getName ^Class (type x)) #"\."))
+                       :cljs
+                       (string/split (pr-str (type x)) #"/")))]
+    {:op :record-value
+     :ns ns
+     :name name
+     :env env
+     :form x
+     :items items
+     :children [items]
+     :tag name}))
+
 (defn elide-reader-meta [m]
   (dissoc m :file :line :column :end-column :end-line :source))
 
@@ -3509,6 +3528,7 @@
      (cond
        (symbol? form) (analyze-symbol env form)
        (and (seq? form) (seq form)) (analyze-seq env form name opts)
+       (record? form) (analyze-record env form)
        (map? form) (analyze-map env form)
        (vector? form) (analyze-vector env form)
        (set? form) (analyze-set env form)
@@ -3530,6 +3550,7 @@
      (cond
        (symbol? form) (analyze-symbol env form)
        (and (cljs-seq? form) (some? (seq form))) (analyze-seq env form name opts)
+       (record? form) (analyze-record env form)
        (cljs-map? form) (analyze-map env form)
        (cljs-vector? form) (analyze-vector env form)
        (cljs-set? form) (analyze-set env form)

src/main/clojure/cljs/compiler.cljc

@@ -460,6 +460,11 @@
         (emits "})"))
       (emits "[" (comma-sep items) "]"))))
 
+(defmethod emit* :record-value
+  [{:keys [items ns name items env]}]
+  (emit-wrap env
+    (emits ns ".map__GT_" name "(" items ")")))
+
 (defmethod emit* :constant
   [{:keys [form env]}]
   (when-not (= :statement (:context env))

src/test/clojure/cljs/build_api_tests.clj

@@ -398,6 +398,17 @@
     (build/build (build/inputs (io/file inputs "data_readers_test")) opts cenv)
     (is (contains? (-> @cenv ::ana/data-readers) 'test/custom-identity))))
 
+(comment
+  (let [out "out"
+        {:keys [inputs opts]} {:inputs (str (io/file "src" "test" "cljs"))
+                               :opts {:main 'data-readers-test.records
+                                      :output-dir out
+                                      :optimizations :none
+                                      :closure-warnings {:check-types :off}}}
+        cenv (env/default-compiler-env)]
+    (build/build (build/inputs (io/file inputs "data_readers_test")) opts cenv))
+  )
+
 (deftest test-cljs-2249
   (let [out (io/file (test/tmp-dir) "cljs-2249-out")
         root (io/file "src" "test" "cljs_build")