mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 23:00:22 +02:00
Code Activity

(SCM_MAKE_CHAR): Use scm_t_bits' instead of intptr_t'.

Browse source 
Thanks to Golubev I. N.
This commit is contained in:
Thien-Thi Nguyen 2001-09-26 03:16:26 +00:00
parent b0b7f4b6ad
commit 0926602706
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/chars.h
View file

@ -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((intptr_t) x, scm_tc8_char)
#define SCM_MAKE_CHAR(x) SCM_MAKE_ITAG8((scm_t_bits) x, scm_tc8_char)