summaryrefslogtreecommitdiff
path: root/libguile/strop.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-10-25 11:01:03 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-10-25 11:01:03 +0000
commitd1ca2c64230419163f7ad80436e83bd74fdb7b95 (patch)
treec3536f600b54e7c3db4bcc042354b4c43522f15e /libguile/strop.c
parent31535422f5aa27febb86fbbf1030c2e2aa35e9f1 (diff)
downloadguile-d1ca2c64230419163f7ad80436e83bd74fdb7b95.tar.gz
* Some more work to get rid of SCM_LENGTH
* Eliminated some cell type bit fiddling * Various minor changes
Diffstat (limited to 'libguile/strop.c')
-rw-r--r--libguile/strop.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/strop.c b/libguile/strop.c
index 6b8e85bde..cc8b53933 100644
--- a/libguile/strop.c
+++ b/libguile/strop.c
@@ -342,8 +342,8 @@ SCM_DEFINE (scm_string_copy, "string-copy", 1, 0, 0,
"Returns a newly allocated copy of the given @var{string}. (r5rs)")
#define FUNC_NAME s_scm_string_copy
{
- SCM_VALIDATE_STRINGORSUBSTR (1,str);
- return scm_makfromstr (SCM_ROCHARS (str), (scm_sizet)SCM_ROLENGTH (str), 0);
+ SCM_VALIDATE_STRING (1, str);
+ return scm_makfromstr (SCM_ROCHARS (str), SCM_STRING_LENGTH (str), 0);
}
#undef FUNC_NAME