diff options
| author | Rob Browning <rlb@defaultvalue.org> | 2001-09-21 17:56:39 +0000 |
|---|---|---|
| committer | Rob Browning <rlb@defaultvalue.org> | 2001-09-21 17:56:39 +0000 |
| commit | f6b115d97edb6cb6dcb0671f543537b64fad6b09 (patch) | |
| tree | c5416189ce722df562ebfc11c190c90ddc4f6590 /libguile/chars.h | |
| parent | 1aaa208e93428509188ac7bcd5ef5a48ebfaa0c6 (diff) | |
| download | guile-f6b115d97edb6cb6dcb0671f543537b64fad6b09.tar.gz | |
* chars.h (SCM_MAKE_CHAR): coerce value to intptr_t.
Diffstat (limited to 'libguile/chars.h')
| -rw-r--r-- | libguile/chars.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/chars.h b/libguile/chars.h index fa24a374a..1e92f6679 100644 --- a/libguile/chars.h +++ b/libguile/chars.h @@ -53,7 +53,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(x, scm_tc8_char) +#define SCM_MAKE_CHAR(x) SCM_MAKE_ITAG8((intptr_t) x, scm_tc8_char) |