From 9704ceefcee91b4dbb71e559b507936c002489cf Mon Sep 17 00:00:00 2001
From: skandhas <skandhas@163.com>
Date: Fri, 30 Nov 2012 22:11:41 +0800
Subject: remove incorrect pop() in codegen

---
 src/codegen.c | 1 -
 1 file changed, 1 deletion(-)

(limited to 'src/codegen.c')

diff --git a/src/codegen.c b/src/codegen.c
index fd41e3cb8..1e468867c 100644
--- a/src/codegen.c
+++ b/src/codegen.c
@@ -1412,7 +1412,6 @@ codegen(codegen_scope *s, node *tree, int val)
 	codegen(s, tree->cdr->cdr->car, VAL);
 	pop();
 	gen_assignment(s, tree->car, cursp(), val);
-	if (val) pop();
 	dispatch(s, pos);
 	break;
       }
-- 
cgit v1.2.3