Permalink
Browse files

* src/clj/cljs/compiler.clj: fix *loop-lets* bug when then are nested…

… loop
  • Loading branch information...
1 parent f715d49 commit 251a300c1b60617aa3c83c1eeca2d18738d73914 @swannodette swannodette committed Feb 22, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/clj/cljs/compiler.clj
@@ -754,7 +754,7 @@
{:keys [statements ret children]}
(binding [*recur-frames* (if recur-frame (cons recur-frame *recur-frames*) *recur-frames*)
*loop-lets* (cond
- is-loop ()
+ is-loop (or *loop-lets* ())
*loop-lets* (cons {:names (vec (map :name bes))} *loop-lets*))]
(analyze-block (assoc env :context (if (= :expr context) :return context)) exprs))]
{:env encl-env :op :let :loop is-loop

0 comments on commit 251a300

Please sign in to comment.