diff options
author | Michael Gran <spk121@yahoo.com> | 2009-08-11 22:52:49 -0700 |
---|---|---|
committer | Michael Gran <spk121@yahoo.com> | 2009-08-11 22:56:18 -0700 |
commit | 744c8724a7060abb7ad749f4db7eadb342184572 (patch) | |
tree | 971d96fee44d35c02ffa4cd301c074b88d4453da /libguile/chars.h | |
parent | 9909c3956ae653488657c5909547dfd4b97557cc (diff) | |
download | guile-744c8724a7060abb7ad749f4db7eadb342184572.tar.gz |
Quiet signed/unsigned comparison warnings in chars.[ch]
* libguile/chars.h (SCM_MAKE_CHAR): quiet signed/unsigned
comparison warnings
* libguile/chars.c (scm_i_charname):
(scm_i_charname_to_char): quiet signed/unsigned comparison
warnings
Diffstat (limited to 'libguile/chars.h')
-rw-r--r-- | libguile/chars.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/chars.h b/libguile/chars.h index e016cb28e..51adc21e5 100644 --- a/libguile/chars.h +++ b/libguile/chars.h @@ -32,9 +32,9 @@ #define SCM_CHARP(x) (SCM_ITAG8(x) == scm_tc8_char) #define SCM_CHAR(x) ((scm_t_wchar)SCM_ITAG8_DATA(x)) -#define SCM_MAKE_CHAR(x) \ - ((x) < 0 \ - ? SCM_MAKE_ITAG8 ((scm_t_bits) (unsigned char) (x), scm_tc8_char) \ +#define SCM_MAKE_CHAR(x) \ + ((scm_t_int32) (x) < 0 \ + ? SCM_MAKE_ITAG8 ((scm_t_bits) (unsigned char) (x), scm_tc8_char) \ : SCM_MAKE_ITAG8 ((scm_t_bits) (x), scm_tc8_char)) #define SCM_CODEPOINT_MAX (0x10ffff) |