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

Only define global if CYC_EVAL

Browse source
This commit is contained in:
Justin Ethier 2015-03-24 21:57:06 -04:00
parent 28cbab2644
commit c6e44a6156
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
runtime.h
View file

@ -1270,13 +1270,15 @@ static void _write(object cont, object args) {
return_funcall1(cont, Cyc_write(car(args))); } return_funcall1(cont, Cyc_write(car(args))); }
static void _display(object cont, object args) { static void _display(object cont, object args) {
return_funcall1(cont, Cyc_display(car(args)));} return_funcall1(cont, Cyc_display(car(args)));}
#ifdef CYC_EVAL
static void _call_95cc(object cont, object args){ static void _call_95cc(object cont, object args){
// TODO: global ref below is unfortunate, should try to refactor it out
return_funcall2(__glo_call_95cc, cont, car(args)); return_funcall2(__glo_call_95cc, cont, car(args));
} }
defprimitive(call_95cc, call/cc, &_call_95cc); // Moved up here due to ifdef
#endif /* CYC_EVAL */
/* This section is auto-generated via --autogen */ /* This section is auto-generated via --autogen */
defprimitive(call_95cc, call/cc, &_call_95cc);
defprimitive(Cyc_91global_91vars, Cyc-global-vars, &_Cyc_91global_91vars); /* Cyc-global-vars */ defprimitive(Cyc_91global_91vars, Cyc-global-vars, &_Cyc_91global_91vars); /* Cyc-global-vars */
defprimitive(Cyc_91get_91cvar, Cyc-get-cvar, &_Cyc_91get_91cvar); /* Cyc-get-cvar */ defprimitive(Cyc_91get_91cvar, Cyc-get-cvar, &_Cyc_91get_91cvar); /* Cyc-get-cvar */
defprimitive(Cyc_91set_91cvar_67, Cyc-set-cvar!, &_Cyc_91set_91cvar_67); /* Cyc-set-cvar! */ defprimitive(Cyc_91set_91cvar_67, Cyc-set-cvar!, &_Cyc_91set_91cvar_67); /* Cyc-set-cvar! */