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

WIP - apply

Browse source
This commit is contained in:
Justin Ethier 2015-02-23 15:33:12 -05:00
parent fd69effec1
commit 258ad8c4d8
1 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
runtime.h
View file

@ -1076,8 +1076,17 @@ static object apply(object cont, object func, object args){
} }
break; break;
case closure0_tag: case closure0_tag:
// TODO: get length of args, 2 below is just an example buf.integer_t = Cyc_length(args);
return_funcall2((closure)func, cont, car(args)); switch(buf.integer_t.value) {
case 0: return_funcall1((closure)func, cont);
case 1: return_funcall2((closure)func, cont, car(args));
case 2: return_funcall3((closure)func, cont, car(args), cadr(args));
// TODO: can see the pattern but this is not efficient. is there a better way?
default:
printf("Unhandled number of function arguments %d\n", buf.integer_t.value);
exit(1);
}
break; break;
default: default:
printf("Invalid object type %ld\n", type_of(func)); printf("Invalid object type %ld\n", type_of(func));