diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-11-22 11:20:03 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-11-22 11:20:03 +0000 |
commit | 34f0f2b8af3585c4057cf076739151accde02147 (patch) | |
tree | 64492a270ab934f362e5725cef4581377eaefa29 /libguile/strop.c | |
parent | 395d8627b90c1b90b48f562436d189e037ff05a6 (diff) | |
download | guile-34f0f2b8af3585c4057cf076739151accde02147.tar.gz |
* Deprecated macros SCM_ROCHARS and SCM_ROUCHARS.
Diffstat (limited to 'libguile/strop.c')
-rw-r--r-- | libguile/strop.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/strop.c b/libguile/strop.c index fb192c0a1..ce6beeb01 100644 --- a/libguile/strop.c +++ b/libguile/strop.c @@ -82,7 +82,7 @@ scm_i_index (SCM *str, SCM chr, int direction, SCM sub_start, if (direction > 0) { - p = (unsigned char *)SCM_ROCHARS (*str) + lower; + p = SCM_STRING_UCHARS (*str) + lower; ch = SCM_CHAR (chr); for (x = SCM_INUM (sub_start); x < upper; ++x, ++p) @@ -91,7 +91,7 @@ scm_i_index (SCM *str, SCM chr, int direction, SCM sub_start, } else { - p = upper - 1 + (unsigned char *)SCM_ROCHARS (*str); + p = upper - 1 + SCM_STRING_UCHARS (*str); ch = SCM_CHAR (chr); for (x = upper - 1; x >= lower; --x, --p) if (*p == ch) @@ -327,7 +327,7 @@ SCM_DEFINE (scm_string_to_list, "string->list", 1, 0, 0, SCM res = SCM_EOL; unsigned char *src; SCM_VALIDATE_STRING (1,str); - src = SCM_ROUCHARS (str); + src = SCM_STRING_UCHARS (str); for (i = SCM_STRING_LENGTH (str)-1;i >= 0;i--) res = scm_cons (SCM_MAKE_CHAR (src[i]), res); return res; } @@ -341,7 +341,7 @@ SCM_DEFINE (scm_string_copy, "string-copy", 1, 0, 0, #define FUNC_NAME s_scm_string_copy { SCM_VALIDATE_STRING (1, str); - return scm_makfromstr (SCM_ROCHARS (str), SCM_STRING_LENGTH (str), 0); + return scm_makfromstr (SCM_STRING_CHARS (str), SCM_STRING_LENGTH (str), 0); } #undef FUNC_NAME |