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

WIP

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

9
runtime.h
View file

@ -1076,14 +1076,21 @@ static object apply(object cont, object func, object args){
} }
break; break;
case closure0_tag: case closure0_tag:
case closure1_tag:
case closure2_tag:
case closure3_tag:
case closure4_tag:
case closureN_tag:
buf.integer_t = Cyc_length(args); buf.integer_t = Cyc_length(args);
switch(buf.integer_t.value) { switch(buf.integer_t.value) {
case 0: return_funcall1((closure)func, cont); case 0: return_funcall1((closure)func, cont);
case 1: return_funcall2((closure)func, cont, car(args)); case 1: return_funcall2((closure)func, cont, car(args));
case 2: return_funcall3((closure)func, cont, car(args), cadr(args)); case 2: return_funcall3((closure)func, cont, car(args), cadr(args));
case 3: return_funcall4((closure)func, cont, car(args), cadr(args), caddr(args));
case 4: return_funcall5((closure)func, cont, car(args), cadr(args), caddr(args), cadddr(args));
// TODO: can see the pattern but this is not efficient. is there a better way? // TODO: can see the pattern but this is not efficient. is there a better way?
default: default:
printf("Unhandled number of function arguments %d\n", buf.integer_t.value); printf("Unhandled number of function arguments: %d\n", buf.integer_t.value);
exit(1); exit(1);
} }