Cyclone Scheme  0.4

◆ return_direct3

#define return_direct3 (   td,
  _fn,
  a1,
  a2,
  a3 
)
Value:
{ \
char top; \
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3; \
mclosure0(c1, (function_type) _fn); \
GC(td, &c1, buf, 3); \
return; \
} else { \
(_fn)(td, 3, (closure)_fn,a1,a2,a3); \
}}
A closed-over function with no variables.
Definition: types.h:948
Definition: types.h:256
void(* function_type)()
Definition: types.h:512
#define stack_overflow(x, y)
Definition: types.h:387