From 4d40bea6c2526c58dad4162551360e9bf323461c Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 13 May 2011 13:29:48 +0200 Subject: i18n error return type fix * libguile/i18n.c (chr_to_case, str_to_case): Return #f in error case instead of 0. --- libguile/i18n.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'libguile/i18n.c') 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); -- cgit v1.2.1