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

optimize begin emitter

This commit is contained in:
Yuichi Nishiwaki 2015-06-28 01:55:50 +09:00
parent f4b54c85ea
commit d097a021e3
1 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
extlib/benz/codegen.c
View File

@ -1183,15 +1183,9 @@ codegen(pic_state *pic, codegen_context *cxt, pic_value obj)
return; return;
} }
else if (sym == pic->sBEGIN) { else if (sym == pic->sBEGIN) {
pic_value elt, it; codegen(pic, cxt, pic_list_ref(pic, obj, 1));
int i = 0; emit_n(pic, cxt, OP_POP);
codegen(pic, cxt, pic_list_ref(pic, obj, 2));
pic_for_each (elt, pic_cdr(pic, obj), it) {
if (i++ != 0) {
emit_n(pic, cxt, OP_POP);
}
codegen(pic, cxt, elt);
}
return; return;
} }
else if (sym == pic->sQUOTE) { else if (sym == pic->sQUOTE) {