optimize begin emitter

2015-06-30 01:13:54 +09:00
parent f4b54c85ea
commit d097a021e3
1 changed files with 3 additions and 9 deletions
@@ -1183,15 +1183,9 @@ codegen(pic_state *pic, codegen_context *cxt, pic_value obj)
    return;
  }
  else if (sym == pic->sBEGIN) {
-    pic_value elt, it;
-    int i = 0;
-
-    pic_for_each (elt, pic_cdr(pic, obj), it) {
-      if (i++ != 0) {
-        emit_n(pic, cxt, OP_POP);
-      }
-      codegen(pic, cxt, elt);
-    }
+    codegen(pic, cxt, pic_list_ref(pic, obj, 1));
+    emit_n(pic, cxt, OP_POP);
+    codegen(pic, cxt, pic_list_ref(pic, obj, 2));
    return;
  }
  else if (sym == pic->sQUOTE) {