rename :expr entry to :body in :let/:loop op

Author: frenchy64

src/main/clojure/cljs/analyzer.cljc

@@ -1303,8 +1303,8 @@
       (case (:op e)
         :recur    IGNORE_SYM
         :throw    IGNORE_SYM
-        :let      (infer-tag env (:expr e))
-        :loop     (infer-tag env (:expr e))
+        :let      (infer-tag env (:body e))
+        :loop     (infer-tag env (:body e))
         :do       (infer-tag env (:ret e))
         :method   (infer-tag env (:expr e))
         :def      (infer-tag env (:init e))
@@ -1983,7 +1983,7 @@
     {:op op
      :env encl-env
      :bindings bes
-     :expr expr
+     :body expr
      :form form
      :children children}))
 

src/main/clojure/cljs/compiler.cljc

@@ -950,7 +950,7 @@
       (emits try))))
 
 (defn emit-let
-  [{:keys [bindings expr env]} is-loop]
+  [{expr :body :keys [bindings env]} is-loop]
   (let [context (:context env)]
     (when (= :expr context) (emits "(function (){"))
     (binding [*lexical-renames*

src/test/clojure/cljs/analyzer_tests.clj

@@ -642,7 +642,7 @@
   (let [parsed (e/with-compiler-env test-cenv
                  (a/analyze (assoc test-env :def-emits-var true)
                    '(let [y 1] (def y 2))))]
-    (is (some? (-> parsed :expr :ret :var-ast)))))
+    (is (some? (-> parsed :body :ret :var-ast)))))
 
 (deftest test-has-extern?-basic
   (let [externs (externs/externs-map