mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Revert to locale-dependent toupper and tolower

Browse source 
To avoid leaving Guile in a broken state, the conversion
from locale-dependent case modification to Unicode case modification
should be an atomic commit

* libguile/chars.c (scm_c_upcase): revert to locale-dependent
  toupper and tolower
This commit is contained in:
Michael Gran 2009-08-11 21:27:20 -07:00
parent 30a6b9caa9
commit 4cd00cc6b2
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/chars.c
View file

@ -296,14 +296,20 @@ TODO: change name to scm_i_.. ? --hwn
scm_t_wchar scm_t_wchar
scm_c_upcase (scm_t_wchar c) scm_c_upcase (scm_t_wchar c)
{ {
return uc_toupper (c); if (c > 255)
return c;
return toupper ((int) c);
} }
scm_t_wchar scm_t_wchar
scm_c_downcase (scm_t_wchar c) scm_c_downcase (scm_t_wchar c)
{ {
return uc_tolower (c); if (c > 255)
return c;
return tolower ((int) c);
} }