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:
parent
10f24c2903
commit
f477475abd
1 changed files with 1 additions and 1 deletions
|
@ -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))
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue