summaryrefslogtreecommitdiff
path: root/libguile/gsubr.h
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/gsubr.h')
-rw-r--r--libguile/gsubr.h6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/gsubr.h b/libguile/gsubr.h
index 108243374..fbf546203 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) ((int)(x)&0xf)
-#define SCM_GSUBR_OPT(x) (((int)(x)&0xf0)>>4)
-#define SCM_GSUBR_REST(x) ((int)(x)>>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_MAX 10
#define SCM_GSUBR_TYPE(cclo) (SCM_CCLO_REF ((cclo), 1))