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.c | |
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.c')
-rw-r--r-- | libguile/chars.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/chars.c b/libguile/chars.c index 56239f597..552a2d9c1 100644 --- a/libguile/chars.c +++ b/libguile/chars.c @@ -363,7 +363,7 @@ static const scm_t_uint32 const scm_alt_charnums[] = { const char * scm_i_charname (SCM chr) { - int c; + size_t c; scm_t_uint32 i = SCM_CHAR (chr); for (c = 0; c < SCM_N_R5RS_CHARNAMES; c++) @@ -385,7 +385,7 @@ scm_i_charname (SCM chr) SCM scm_i_charname_to_char (const char *charname, size_t charname_len) { - int c; + size_t c; /* The R5RS charnames. These are supposed to be case insensitive. */ |