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

Removed unnecessary code

Browse source
This commit is contained in:
Justin Ethier 2015-03-31 13:59:21 -04:00
parent 3e92f67924
commit 456af5b6d0
1 changed files with 1 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
runtime.h
View file

@ -1162,16 +1162,7 @@ static object apply(object cont, object func, object args){
case closure4_tag: case closure4_tag:
case closureN_tag: case closureN_tag:
buf.integer_t = Cyc_length(args); buf.integer_t = Cyc_length(args);
switch(buf.integer_t.value) { dispatch(buf.integer_t.value, ((closure)func)->fn, func, cont, args);
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));
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));
// More efficient to do this for larger numbers of arguments:
default: dispatch(buf.integer_t.value, ((closure)func)->fn, func, cont, args);
}
break; break;
#ifdef CYC_EVAL #ifdef CYC_EVAL