conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix #58

This commit is contained in:
Yuichi Nishiwaki 2014-02-23 09:16:29 +09:00
parent 7ac4cd9ded
commit 067a4756ff
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/codegen.c
View File

@ -1187,7 +1187,13 @@ codegen(codegen_state *state, pic_value obj)
} }
else if (sym == pic->sBEGIN) { else if (sym == pic->sBEGIN) {
pic_value elt; pic_value elt;
int i = 0;
pic_for_each (elt, pic_cdr(pic, obj)) { pic_for_each (elt, pic_cdr(pic, obj)) {
if (i++ != 0) {
cxt->code[cxt->clen].insn = OP_POP;
cxt->clen++;
}
codegen(state, elt); codegen(state, elt);
} }
return; return;