diff options
author | Andy Wingo <wingo@pobox.com> | 2019-08-24 11:57:39 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2019-08-24 11:57:39 +0200 |
commit | 253cf3dc6f0ecdd2459c301926ee896eae6c73de (patch) | |
tree | 122cf8100bafe39d90e40bd315b20d8527ac3a5f /libguile/strings.c | |
parent | b1564df298dbdd261e880837c89f04d3d82879ea (diff) | |
download | guile-253cf3dc6f0ecdd2459c301926ee896eae6c73de.tar.gz |
Revert "Revert scm_c_make_char rename"
My reversion of Mark's commit was in error; the supposed ABI change was
never released.
This reverts commit 3925a64682be333af2e8d15e8173f06d3272f4e4.
Diffstat (limited to 'libguile/strings.c')
-rw-r--r-- | libguile/strings.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/strings.c b/libguile/strings.c index 789e60778..aab104498 100644 --- a/libguile/strings.c +++ b/libguile/strings.c @@ -1232,9 +1232,9 @@ SCM_DEFINE (scm_string_ref, "string-ref", 2, 0, 0, scm_out_of_range (NULL, k); if (scm_i_is_narrow_string (str)) - return scm_i_make_char (scm_i_string_chars (str)[idx]); + return scm_c_make_char (scm_i_string_chars (str)[idx]); else - return scm_i_make_char (scm_i_string_wide_chars (str)[idx]); + return scm_c_make_char (scm_i_string_wide_chars (str)[idx]); } #undef FUNC_NAME @@ -1244,9 +1244,9 @@ scm_c_string_ref (SCM str, size_t p) if (p >= scm_i_string_length (str)) scm_out_of_range (NULL, scm_from_size_t (p)); if (scm_i_is_narrow_string (str)) - return scm_i_make_char (scm_i_string_chars (str)[p]); + return scm_c_make_char (scm_i_string_chars (str)[p]); else - return scm_i_make_char (scm_i_string_wide_chars (str)[p]); + return scm_c_make_char (scm_i_string_wide_chars (str)[p]); } |