Cyclone Scheme  0.9
#define _return_closcall1 (   td,
  clo,
  a1 
)
Value:
{ \
char top; \
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
object buf[1]; buf[0] = a1;\
GC(td, clo, buf, 1); \
return NULL; \
} else {\
closcall1(td, (closure) (clo), a1); \
return NULL;\
} \
}
A closed-over function with no variables.
Definition: types.h:1216
void * object
Definition: types.h:29
Definition: types.h:290
#define stack_overflow(x, y)
Definition: types.h:454
#define closcall1(td, clo, a1)
Definition: runtime.c:91
void GC(void *data, closure cont, object *args, int num_args)
Definition: runtime.c:5506