diff options
Diffstat (limited to 'libguile/chars.c')
-rw-r--r-- | libguile/chars.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/chars.c b/libguile/chars.c index 2103c540c..c7cb09c47 100644 --- a/libguile/chars.c +++ b/libguile/chars.c @@ -296,14 +296,14 @@ TODO: change name to scm_i_.. ? --hwn scm_t_wchar scm_c_upcase (scm_t_wchar c) { - return uc_toupper (c); + return uc_toupper ((int) c); } scm_t_wchar scm_c_downcase (scm_t_wchar c) { - return uc_tolower (c); + return uc_tolower ((int) c); } @@ -357,7 +357,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++) @@ -379,7 +379,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. */ |