File tree Expand file tree Collapse file tree 2 files changed +2
-2
lines changed Expand file tree Collapse file tree 2 files changed +2
-2
lines changed Original file line number Diff line number Diff line change 1868
1868
(conj bes be')]))
1869
1869
[meth-env []] bes)
1870
1870
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
1872
1872
:children (conj (vec (map :init bes)) expr)}))
1873
1873
1874
1874
(defn analyze-do-statements* [env exprs]
Original file line number Diff line number Diff line change 990
990
(emitln " continue;" )))
991
991
992
992
(defmethod emit* :letfn
993
- [{: keys [bindings expr env]}]
993
+ [{expr :body : keys [bindings env]}]
994
994
(let [context (:context env)]
995
995
(when (= :expr context) (emits " (function (){" ))
996
996
(doseq [{:keys [init] :as binding } bindings]
You can’t perform that action at this time.
0 commit comments