diff options
author | Andy Wingo <wingo@pobox.com> | 2011-05-13 13:29:48 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-05-13 15:33:48 +0200 |
commit | 4d40bea6c2526c58dad4162551360e9bf323461c (patch) | |
tree | 0c45fe81c4629dde33d89cc7e66564a0e4ef3223 | |
parent | a3069bace813901dc4efe189e37261d5de05ca6d (diff) | |
download | guile-4d40bea6c2526c58dad4162551360e9bf323461c.tar.gz |
i18n error return type fix
* libguile/i18n.c (chr_to_case, str_to_case): Return #f in error case
instead of 0.
-rw-r--r-- | libguile/i18n.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/i18n.c b/libguile/i18n.c index cb6ab98ea..b22b33222 100644 --- a/libguile/i18n.c +++ b/libguile/i18n.c @@ -1143,7 +1143,7 @@ chr_to_case (SCM chr, scm_t_locale c_locale, if (SCM_UNLIKELY (ret != 0)) { *err = ret; - return NULL; + return SCM_BOOL_F; } if (convlen == 1) @@ -1262,7 +1262,7 @@ str_to_case (SCM str, scm_t_locale c_locale, if (SCM_UNLIKELY (ret != 0)) { *err = ret; - return NULL; + return SCM_BOOL_F; } convstr = scm_i_make_wide_string (convlen, &c_buf, 0); |