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

Eval call/cc - allow call/cc to be evaluated

Browse source
This commit is contained in:
Justin Ethier 2016-03-30 21:44:00 -04:00
parent 258c823ef3
commit 444bf8d61f
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
runtime.c
View file

@ -2403,7 +2403,7 @@ object apply(void *data, object cont, object func, object args){
// args = &c; // args = &c;
//Cyc_display(&c, stderr); //Cyc_display(&c, stderr);
count = Cyc_length(data, args); count = Cyc_length(data, args);
// Cyc_check_num_args(data, "<procedure>", ((closure)func)->num_args, args); Cyc_check_num_args(data, "<procedure>", 1, args);
dispatch(data, obj_obj2int(count), ((closure)func)->fn, func, cont, args); dispatch(data, obj_obj2int(count), ((closure)func)->fn, func, cont, args);
} }
count = Cyc_length(data, args); count = Cyc_length(data, args);