From ad77ed8bf3a437168bec2fd10e67a88b4540a512 Mon Sep 17 00:00:00 2001
From: Jun Hiroe <Jun.Hiroe@gmail.com>
Date: Tue, 28 Oct 2014 23:28:37 +0900
Subject: Refactor for_body func

---
 src/codegen.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/codegen.c b/src/codegen.c
index d749e5355..ebab9e11e 100644
--- a/src/codegen.c
+++ b/src/codegen.c
@@ -571,12 +571,11 @@ for_body(codegen_scope *s, node *tree)
 
   /* generate loop variable */
   n2 = tree->car;
+  genop(s, MKOP_Ax(OP_ENTER, 0x40000));
   if (n2->car && !n2->car->cdr && !n2->cdr) {
-    genop(s, MKOP_Ax(OP_ENTER, 0x40000));
     gen_assignment(s, n2->car->car, 1, NOVAL);
   }
   else {
-    genop(s, MKOP_Ax(OP_ENTER, 0x40000));
     gen_vmassignment(s, n2, 1, VAL);
   }
   codegen(s, tree->cdr->cdr->car, VAL);
-- 
cgit v1.2.3