summaryrefslogtreecommitdiffhomepage
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/codegen.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/codegen.c b/src/codegen.c
index 1f087b2cd..df5bc2acf 100644
--- a/src/codegen.c
+++ b/src/codegen.c
@@ -1403,6 +1403,7 @@ 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;
}