1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00

* srfi-14.h (SCM_CHARSET_GET): need 1L, not just 1 in "<<".

This commit is contained in:
Rob Browning 2001-09-21 17:48:35 +00:00
parent 10f24c2903
commit f477475abd

View file

@ -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))