diff options
Diffstat (limited to 'libguile/chars.c')
-rw-r--r-- | libguile/chars.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/chars.c b/libguile/chars.c index 408b23996..00efea592 100644 --- a/libguile/chars.c +++ b/libguile/chars.c @@ -454,7 +454,7 @@ SCM_DEFINE (scm_char_upcase, "char-upcase", 1, 0, 0, #define FUNC_NAME s_scm_char_upcase { SCM_VALIDATE_CHAR (1, chr); - return scm_c_make_char (scm_c_upcase (SCM_CHAR (chr))); + return scm_i_make_char (scm_c_upcase (SCM_CHAR (chr))); } #undef FUNC_NAME @@ -465,7 +465,7 @@ SCM_DEFINE (scm_char_downcase, "char-downcase", 1, 0, 0, #define FUNC_NAME s_scm_char_downcase { SCM_VALIDATE_CHAR (1, chr); - return scm_c_make_char (scm_c_downcase (SCM_CHAR(chr))); + return scm_i_make_char (scm_c_downcase (SCM_CHAR(chr))); } #undef FUNC_NAME @@ -475,7 +475,7 @@ SCM_DEFINE (scm_char_titlecase, "char-titlecase", 1, 0, 0, #define FUNC_NAME s_scm_char_titlecase { SCM_VALIDATE_CHAR (1, chr); - return scm_c_make_char (scm_c_titlecase (SCM_CHAR(chr))); + return scm_i_make_char (scm_c_titlecase (SCM_CHAR(chr))); } #undef FUNC_NAME |