diff options
Diffstat (limited to 'libguile/gsubr.h')
-rw-r--r-- | libguile/gsubr.h | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/libguile/gsubr.h b/libguile/gsubr.h index be7b4d5af..90153c30a 100644 --- a/libguile/gsubr.h +++ b/libguile/gsubr.h @@ -54,8 +54,10 @@ #define SCM_GSUBR_REST(x) ((int)(x)>>8) #define SCM_GSUBR_MAX 10 -#define SCM_GSUBR_TYPE(cclo) (SCM_VELTS(cclo)[1]) -#define SCM_GSUBR_PROC(cclo) (SCM_VELTS(cclo)[2]) +#define SCM_GSUBR_TYPE(cclo) (SCM_CCLO_REF ((cclo), 1)) +#define SCM_SET_GSUBR_TYPE(cclo, type) (SCM_CCLO_SET ((cclo), 1, (type))) +#define SCM_GSUBR_PROC(cclo) (SCM_CCLO_REF ((cclo), 2)) +#define SCM_SET_GSUBR_PROC(cclo, proc) (SCM_CCLO_SET ((cclo), 2, (proc))) extern SCM scm_f_gsubr_apply; |