Skip to content

Commit c89f5e2

Browse files
frenchy64swannodette
authored andcommitted
rename :expr entry to :body in :letfn op
1 parent 3b4e872 commit c89f5e2

File tree

2 files changed

+2
-2
lines changed

2 files changed

+2
-2
lines changed

src/main/clojure/cljs/analyzer.cljc

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1868,7 +1868,7 @@
18681868
(conj bes be')]))
18691869
[meth-env []] bes)
18701870
expr (analyze (assoc meth-env :context (if (= :expr context) :return context)) `(do ~@exprs))]
1871-
{:env env :op :letfn :bindings bes :expr expr :form form
1871+
{:env env :op :letfn :bindings bes :body expr :form form
18721872
:children (conj (vec (map :init bes)) expr)}))
18731873

18741874
(defn analyze-do-statements* [env exprs]

src/main/clojure/cljs/compiler.cljc

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -990,7 +990,7 @@
990990
(emitln "continue;")))
991991

992992
(defmethod emit* :letfn
993-
[{:keys [bindings expr env]}]
993+
[{expr :body :keys [bindings env]}]
994994
(let [context (:context env)]
995995
(when (= :expr context) (emits "(function (){"))
996996
(doseq [{:keys [init] :as binding} bindings]

0 commit comments

Comments
 (0)