diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-10-25 11:01:03 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-10-25 11:01:03 +0000 |
commit | d1ca2c64230419163f7ad80436e83bd74fdb7b95 (patch) | |
tree | c3536f600b54e7c3db4bcc042354b4c43522f15e /libguile/strop.c | |
parent | 31535422f5aa27febb86fbbf1030c2e2aa35e9f1 (diff) | |
download | guile-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.c | 4 |
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 |