diff options
| author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-09-22 17:17:55 +0000 |
|---|---|---|
| committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-09-22 17:17:55 +0000 |
| commit | 86c991c2a202c1d06caa5f01ec5d36a07a19bb96 (patch) | |
| tree | de2cbc86a2935e2026ffa9deec7cbd564f0d688d /libguile/gh_data.c | |
| parent | c1aef037101d36e33de853041e407593cf32a489 (diff) | |
| download | guile-86c991c2a202c1d06caa5f01ec5d36a07a19bb96.tar.gz | |
* Replaced SCM_CHARS with SCM_STRING_CHARS or SCM_SYMBOL_CHARS.
Diffstat (limited to 'libguile/gh_data.c')
| -rw-r--r-- | libguile/gh_data.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/gh_data.c b/libguile/gh_data.c index d0b164de0..5987ae7f6 100644 --- a/libguile/gh_data.c +++ b/libguile/gh_data.c @@ -116,7 +116,7 @@ gh_set_substr (char *src, SCM dst, int start, int len) SCM_ASSERT (SCM_STRINGP (dst), dst, SCM_ARG3, "gh_set_substr"); - dst_ptr = SCM_CHARS (dst); + dst_ptr = SCM_STRING_CHARS (dst); dst_len = SCM_LENGTH (dst); SCM_ASSERT (len >= 0 && (unsigned) len <= dst_len, dst, SCM_ARG4, "gh_set_substr"); @@ -605,7 +605,7 @@ gh_symbol2newstr (SCM sym, int *lenp) ret_str = (char *) scm_must_malloc ((len + 1) * sizeof (char), "gh_symbol2newstr"); /* so we copy tmp_str to ret_str, which is what we will allocate */ - memcpy (ret_str, SCM_CHARS (sym), len); + memcpy (ret_str, SCM_SYMBOL_CHARS (sym), len); /* now make sure we null-terminate it */ ret_str[len] = '\0'; |