remove incorrect pop() in codegen

9704ceef · skandhas · 2ea245db · 9704ceef
Commit 9704ceef authored Nov 30, 2012 by skandhas
Show whitespace changes
Inline Side-by-side

Showing with 0 additions and 1 deletion

src/codegen.c src/codegen.c +0 -1

No files found.
--- 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;
      }