From bb243b3aef0d17fc82808274d0b3cf92ac3c07d4 Mon Sep 17 00:00:00 2001
From: Graydon Hoare <graydon@mozilla.com>
Date: Tue, 13 Jul 2010 14:26:38 -0700
Subject: Desugar the head stmts all the way out of STMT_for, rather than
 stashing them in the node. That's only necessary for STMT_while.

---
 src/boot/me/walk.ml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/boot/me/walk.ml')

diff --git a/src/boot/me/walk.ml b/src/boot/me/walk.ml
index 0b60c832..49db07e5 100644
--- a/src/boot/me/walk.ml
+++ b/src/boot/me/walk.ml
@@ -419,9 +419,8 @@ and walk_stmt
       (s:Ast.stmt_for)
       : unit =
     let (si,_) = s.Ast.for_slot in
-    let (ss,lv) = s.Ast.for_seq in
+    let lv = s.Ast.for_seq in
       walk_slot_identified v si;
-      Array.iter (walk_stmt v) ss;
       walk_lval v lv;
       walk_block v s.Ast.for_body
   in
-- 
cgit v1.2.3