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

Allow evaluating scheme procedures

Browse source
This commit is contained in:
Justin Ethier 2015-06-24 21:15:45 -04:00
parent 0c2106ec05
commit b86cb0b561
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
runtime.c
View file

@ -1350,12 +1350,15 @@ object apply(object cont, object func, object args){
case cons_tag: case cons_tag:
{ {
// TODO: would be better to compare directly against symbol here, // TODO: would be better to compare directly against symbols here,
// but need a way of looking up this symbol ahead of time. // but need a way of looking up this symbol ahead of time.
// maybe a libinit() or such is required. // maybe a libinit() or such is required.
if (strncmp(((symbol)car(func))->pname, "primitive", 10) == 0) { if (strncmp(((symbol)car(func))->pname, "primitive", 10) == 0) {
make_cons(c, cadr(func), args); make_cons(c, cadr(func), args);
((closure)__glo_eval)->fn(3, __glo_eval, cont, &c, nil); ((closure)__glo_eval)->fn(3, __glo_eval, cont, &c, nil);
} else if (strncmp(((symbol)car(func))->pname, "procedure", 10) == 0) {
make_cons(c, func, args);
((closure)__glo_eval)->fn(3, __glo_eval, cont, &c, nil);
} else { } else {
make_cons(c, func, args); make_cons(c, func, args);
Cyc_rt_raise2("Unable to evaluate: ", &c); Cyc_rt_raise2("Unable to evaluate: ", &c);