HCoop
/
bpt
/
guile.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Revert to locale-dependent toupper and tolower
[bpt/guile.git]
/
libguile
/
chars.c
diff --git
a/libguile/chars.c
b/libguile/chars.c
index
2103c54
..
56239f5
100644
(file)
--- a/
libguile/chars.c
+++ b/
libguile/chars.c
@@
-296,14
+296,20
@@
TODO: change name to scm_i_.. ? --hwn
scm_t_wchar
scm_c_upcase (scm_t_wchar c)
{
scm_t_wchar
scm_c_upcase (scm_t_wchar c)
{
- return uc_toupper (c);
+ if (c > 255)
+ return c;
+
+ return toupper ((int) c);
}
scm_t_wchar
scm_c_downcase (scm_t_wchar c)
{
}
scm_t_wchar
scm_c_downcase (scm_t_wchar c)
{
- return uc_tolower (c);
+ if (c > 255)
+ return c;
+
+ return tolower ((int) c);
}
\f
}
\f