diff options
author | Mark H Weaver <mhw@netris.org> | 2019-06-18 07:30:54 -0400 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2019-06-18 07:30:54 -0400 |
commit | 579dd2da449be194a95d41a27317a453c1aa0568 (patch) | |
tree | becf4d7399fb28fbe8ae32d5a5b166a7f8fc7255 /libguile/strings.c | |
parent | 2d49ffa588e873b6e25ad91602227a0e9ffc2387 (diff) | |
download | guile-579dd2da449be194a95d41a27317a453c1aa0568.tar.gz |
Rename 'scm_c_make_char' to 'scm_i_make_char'.
* libguile/chars.c, libguile/chars.h, libguile/ports.c,
libguile/print.c, libguile/read.c, libguile/srfi-13.c,
libguile/strings.c, libguile/vm-engine.c: Rename 'scm_c_make_char' to
'scm_i_make_char'.
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 180fae1ce..056b4c99f 100644 --- a/libguile/strings.c +++ b/libguile/strings.c @@ -1227,9 +1227,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 @@ -1239,9 +1239,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]); } |