From e83d9f0cb1a9bad6d6313df0fc8e99afcb4d6dda Mon Sep 17 00:00:00 2001 From: Rob Browning Date: Fri, 21 Sep 2001 17:51:01 +0000 Subject: [PATCH] * chars.h (SCM_MAKE_CHAR): coerce value to intptr_t. --- libguile/chars.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/libguile/chars.h b/libguile/chars.h index 65cc079d2..de64ea0c7 100644 --- a/libguile/chars.h +++ b/libguile/chars.h @@ -51,7 +51,7 @@ */ #define SCM_CHARP(x) (SCM_ITAG8(x) == scm_tc8_char) #define SCM_CHAR(x) ((unsigned int)SCM_ITAG8_DATA(x)) -#define SCM_MAKE_CHAR(x) SCM_MAKE_ITAG8(x, scm_tc8_char) +#define SCM_MAKE_CHAR(x) SCM_MAKE_ITAG8((intptr_t) x, scm_tc8_char)