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)
 {
-  return uc_toupper (c);
+  if (c > 255)
+    return c;
+
+  return toupper ((int) 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