diff options
Diffstat (limited to 'libguile/procs.h')
-rw-r--r-- | libguile/procs.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/procs.h b/libguile/procs.h index c60c50ac0..4bc1f0c74 100644 --- a/libguile/procs.h +++ b/libguile/procs.h @@ -94,6 +94,7 @@ typedef struct #define SCM_CLOSCAR(x) SCM_PACK (SCM_CELL_WORD_0 (x) - scm_tc3_closure) #define SCM_CODE(x) SCM_CAR (SCM_CLOSCAR (x)) #define SCM_CLOSURE_FORMALS(x) SCM_CAR (SCM_CODE (x)) +#define SCM_CLOSURE_BODY(x) SCM_CDR (SCM_CODE (x)) #define SCM_PROCPROPS(x) SCM_CDR (SCM_CLOSCAR (x)) #define SCM_SETPROCPROPS(x, p) SCM_SETCDR (SCM_CLOSCAR (x), p) #define SCM_SETCODE(x, e) (SCM_SET_CELL_WORD_0 (x, SCM_UNPACK (scm_cons ((e), SCM_EOL)) \ |