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

Refactoring

Browse source
This commit is contained in:
Justin Ethier 2016-04-20 03:49:36 -04:00
parent 8d34ce909b
commit 56c9a3340f
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

@ -2545,7 +2545,7 @@ void _display(void *data, object cont, object args) {
dispatch(data, obj_obj2int(argc), (function_type)dispatch_display_va, cont, cont, args); }} dispatch(data, obj_obj2int(argc), (function_type)dispatch_display_va, cont, cont, args); }}
void _call_95cc(void *data, object cont, object args){ void _call_95cc(void *data, object cont, object args){
Cyc_check_num_args(data, "call/cc", 1, args); Cyc_check_num_args(data, "call/cc", 1, args);
if (eq(boolean_f, Cyc_is_procedure(data, car(args)))) { if ((boolean_f == Cyc_is_procedure(data, car(args)))) {
Cyc_invalid_type_error(data, closure1_tag, car(args)); Cyc_invalid_type_error(data, closure1_tag, car(args));
} }
return_closcall2(data, __glo_call_95cc_scheme_base, cont, car(args)); return_closcall2(data, __glo_call_95cc_scheme_base, cont, car(args));