summaryrefslogtreecommitdiff
path: root/libguile/chars.c
diff options
context:
space:
mode:
authorDaniel Kraft <d@domob.eu>2009-08-27 19:26:04 +0200
committerDaniel Kraft <d@domob.eu>2009-08-27 19:26:04 +0200
commitff810079188b8d04224959d5b54254d3e142d6c3 (patch)
treea58a203dd1a4f151ee8730c5a8290b0c36c2a04e /libguile/chars.c
parent9a9f123144c179ef659252d3442117d6b774be7f (diff)
parentfa316af70ff11767d9a8eb971d9e0b888152a15c (diff)
downloadguile-ff810079188b8d04224959d5b54254d3e142d6c3.tar.gz
Merge branch 'master' of git://git.savannah.gnu.org/guile into elisp
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. */