This commit is contained in:
Yuichi Nishiwaki 2015-07-04 18:14:31 +09:00
parent 1a886ee50f
commit 7e970258f4
1 changed files with 3 additions and 9 deletions

View File

@ -923,9 +923,10 @@ codegen_quote(pic_state *pic, codegen_context *cxt, pic_value obj, bool tailpos)
static bool
codegen_call_vm(pic_state *pic, codegen_context *cxt, pic_value proc, size_t len, bool tailpos)
{
pic_sym *sym;
if (pic_sym_ptr(pic_list_ref(pic, proc, 0)) == pic->sGREF) {
pic_sym *sym;
sym = pic_sym_ptr(pic_list_ref(pic, proc, 1));
#define VM(uid, op) \
if (sym == uid) { \
@ -934,13 +935,6 @@ codegen_call_vm(pic_state *pic, codegen_context *cxt, pic_value proc, size_t len
return true; \
}
/*
TODO:
- call-with-values, values, >, >=
*/
sym = pic_sym_ptr(pic_list_ref(pic, proc, 1));
VM(pic->uCONS, OP_CONS)
VM(pic->uCAR, OP_CAR)
VM(pic->uCDR, OP_CDR)