mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 04:50:28 +02:00
Code Activity

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

Browse source
This commit is contained in:
Rob Browning 2001-09-21 17:48:35 +00:00
parent 10f24c2903
commit f477475abd
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
srfi/srfi-14.h
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))