Function closure_code

src/Scheme.cpp:636–636

int is_closure(pointer p)  { return (type(p)==T_CLOSURE); }
int is_macro(pointer p)    { return (type(p)==T_MACRO); }
pointer closure_code(pointer p)   { return car(p); }
pointer closure_env(pointer p)    { return cdr(p); }

int is_continuation(pointer p)    { return (type(p)==T_CONTINUATION); }