summaryrefslogtreecommitdiff
path: root/libguile/chars.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/chars.c')
-rw-r--r--libguile/chars.c8
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. */