mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

Revert "Revert scm_c_make_char rename"

Browse source 
My reversion of Mark's commit was in error; the supposed ABI change was
never released.

This reverts commit 3925a64682.
This commit is contained in:
Andy Wingo 2019-08-24 11:57:39 +02:00
parent b1564df298
commit 253cf3dc6f
7 changed files with 33 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/strings.c
View file

@ -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]);
}