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

cleanup

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extlib/benz/codegen.c
View File

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