From 3925a64682be333af2e8d15e8173f06d3272f4e4 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 2 Aug 2019 15:19:17 +0200 Subject: Revert scm_c_make_char rename This was, I think, an unintentional ABI change. Reverts 579dd2da449be194a95d41a27317a453c1aa0568. --- libguile/strings.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'libguile/strings.c') diff --git a/libguile/strings.c b/libguile/strings.c index aab104498..789e60778 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_c_make_char (scm_i_string_chars (str)[idx]); + return scm_i_make_char (scm_i_string_chars (str)[idx]); else - return scm_c_make_char (scm_i_string_wide_chars (str)[idx]); + return scm_i_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_c_make_char (scm_i_string_chars (str)[p]); + return scm_i_make_char (scm_i_string_chars (str)[p]); else - return scm_c_make_char (scm_i_string_wide_chars (str)[p]); + return scm_i_make_char (scm_i_string_wide_chars (str)[p]); } -- cgit v1.2.3