diff options
Diffstat (limited to 'libguile/gsubr.h')
-rw-r--r-- | libguile/gsubr.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/gsubr.h b/libguile/gsubr.h index fbf546203..131854c4f 100644 --- a/libguile/gsubr.h +++ b/libguile/gsubr.h @@ -49,9 +49,9 @@ #define SCM_GSUBR_MAKTYPE(req, opt, rst) ((req)|((opt)<<4)|((rst)<<8)) -#define SCM_GSUBR_REQ(x) ((scm_bits_t)(x)&0xf) -#define SCM_GSUBR_OPT(x) (((scm_bits_t)(x)&0xf0)>>4) -#define SCM_GSUBR_REST(x) ((scm_bits_t)(x)>>8) +#define SCM_GSUBR_REQ(x) ((long)(x)&0xf) +#define SCM_GSUBR_OPT(x) (((long)(x)&0xf0)>>4) +#define SCM_GSUBR_REST(x) ((long)(x)>>8) #define SCM_GSUBR_MAX 10 #define SCM_GSUBR_TYPE(cclo) (SCM_CCLO_REF ((cclo), 1)) |