mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

i18n error return type fix

Browse source 
* libguile/i18n.c (chr_to_case, str_to_case): Return #f in error case
  instead of 0.
This commit is contained in:
Andy Wingo 2011-05-13 13:29:48 +02:00
parent a3069bace8
commit 4d40bea6c2
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/i18n.c
View file

@ -1143,7 +1143,7 @@ chr_to_case (SCM chr, scm_t_locale c_locale,
if (SCM_UNLIKELY (ret != 0)) if (SCM_UNLIKELY (ret != 0))
{ {
*err = ret; *err = ret;
return NULL; return SCM_BOOL_F;
} }
if (convlen == 1) if (convlen == 1)
@ -1262,7 +1262,7 @@ str_to_case (SCM str, scm_t_locale c_locale,
if (SCM_UNLIKELY (ret != 0)) if (SCM_UNLIKELY (ret != 0))
{ {
*err = ret; *err = ret;
return NULL; return SCM_BOOL_F;
} }
convstr = scm_i_make_wide_string (convlen, &c_buf, 0); convstr = scm_i_make_wide_string (convlen, &c_buf, 0);