summaryrefslogtreecommitdiff
path: root/libguile/gh_data.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-11-22 11:20:03 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-11-22 11:20:03 +0000
commit34f0f2b8af3585c4057cf076739151accde02147 (patch)
tree64492a270ab934f362e5725cef4581377eaefa29 /libguile/gh_data.c
parent395d8627b90c1b90b48f562436d189e037ff05a6 (diff)
downloadguile-34f0f2b8af3585c4057cf076739151accde02147.tar.gz
* Deprecated macros SCM_ROCHARS and SCM_ROUCHARS.
Diffstat (limited to 'libguile/gh_data.c')
-rw-r--r--libguile/gh_data.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/gh_data.c b/libguile/gh_data.c
index abcf27808..2d11c54a7 100644
--- a/libguile/gh_data.c
+++ b/libguile/gh_data.c
@@ -542,7 +542,7 @@ gh_scm2newstr (SCM str, int *lenp)
ret_str = (char *) scm_must_malloc ((len + 1) * sizeof (char),
"gh_scm2newstr");
/* so we copy tmp_str to ret_str, which is what we will allocate */
- memcpy (ret_str, SCM_ROCHARS (str), len); /* test ROCHARS here -twp */
+ memcpy (ret_str, SCM_STRING_CHARS (str), len);
/* from now on we don't mind if str gets GC collected. */
scm_remember (&str);
/* now make sure we null-terminate it */
@@ -573,7 +573,7 @@ gh_get_substr (SCM src, char *dst, int start, int len)
src_len = SCM_STRING_LENGTH (src);
effective_length = (len < src_len) ? len : src_len;
- memcpy (dst + start, SCM_ROCHARS (src), effective_length * sizeof (char));
+ memcpy (dst + start, SCM_STRING_CHARS (src), effective_length * sizeof (char));
/* FIXME: must signal an error if len > src_len */
scm_remember (&src);
}