Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Setting stage for eval interpreted func from compiled code

Browse source
This commit is contained in:
Justin Ethier 2015-03-01 23:03:50 -05:00
parent 14855cef41
commit 2109ea1483
1 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
runtime.h
View file

@ -1476,6 +1476,20 @@ static object apply(object cont, object func, object args){
}
break;
// TODO: if #define CYC_EVAL
// TODO: also, this only works if the generated code knows to call apply, want to do this,
// but again only if CYC_EVAL is defined:
//#define funcall2(cfn,a1,a2) if (type_of(cfn) == cons_tag || prim(cfn)) { Cyc_apply(1, (closure)a1, cfn,a2); } else { ((cfn)->fn)(2,cfn,a1,a2);}
case cons_tag:
if (!nullp(func) && eq(quote_Cyc_191procedure, car(func))) {
printf("TODO: apply compound proc\n");
exit(1);
} else {
printf("Unable to evaluate list\n");
exit(1);
}
// TODO: #endif
default:
printf("Invalid object type %ld\n", type_of(func));
exit(1);