Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-09 14:07:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

WIP - experimental eval

Browse source
This commit is contained in:
Justin Ethier 2015-03-02 13:58:05 -05:00
parent 2109ea1483
commit dd976cbb76
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
runtime.h
View file

@ -1482,8 +1482,10 @@ static object apply(object cont, object func, object args){
//#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);} //#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: case cons_tag:
if (!nullp(func) && eq(quote_Cyc_191procedure, car(func))) { if (!nullp(func) && eq(quote_Cyc_191procedure, car(func))) {
printf("TODO: apply compound proc\n"); //printf("TODO: apply compound proc\n");
exit(1); Cyc_display(func);
//exit(1);
((closure)__glo_eval)->fn(2, __glo_eval, cont, func);
} else { } else {
printf("Unable to evaluate list\n"); printf("Unable to evaluate list\n");
exit(1); exit(1);