summaryrefslogtreecommitdiff
path: root/libguile/strings.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2019-08-02 15:19:17 +0200
committerAndy Wingo <wingo@pobox.com>2019-08-02 15:19:17 +0200
commit3925a64682be333af2e8d15e8173f06d3272f4e4 (patch)
treee693be70837b7b78c41ea95f3808d9a119566d9f /libguile/strings.c
parentce10a30e232ee57cc43ccda63a0962fcec911dfd (diff)
downloadguile-3925a64682be333af2e8d15e8173f06d3272f4e4.tar.gz
Revert scm_c_make_char rename
This was, I think, an unintentional ABI change. Reverts 579dd2da449be194a95d41a27317a453c1aa0568.
Diffstat (limited to 'libguile/strings.c')
-rw-r--r--libguile/strings.c8
1 files changed, 4 insertions, 4 deletions
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]);
}