From f477475abdda96c20f6fd68a3cd7618dbb539b1e Mon Sep 17 00:00:00 2001 From: Rob Browning Date: Fri, 21 Sep 2001 17:48:35 +0000 Subject: [PATCH] * srfi-14.h (SCM_CHARSET_GET): need 1L, not just 1 in "<<". --- srfi/srfi-14.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/srfi/srfi-14.h b/srfi/srfi-14.h index 3989aadcc..cef7e5089 100644 --- a/srfi/srfi-14.h +++ b/srfi/srfi-14.h @@ -56,7 +56,7 @@ #define SCM_CHARSET_GET(cs, idx) (((long *) SCM_SMOB_DATA (cs))\ [(idx) / SCM_BITS_PER_LONG] &\ - (1 << ((idx) % SCM_BITS_PER_LONG))) + (1L << ((idx) % SCM_BITS_PER_LONG))) #define SCM_CHARSETP(x) (!SCM_IMP (x) && (SCM_TYP16 (x) == scm_tc16_charset))