From 9fd38a3d142821f117716b90aa6acace79f1b944 Mon Sep 17 00:00:00 2001 From: Dirk Herrmann Date: Mon, 9 Oct 2000 16:27:24 +0000 Subject: * Made some functions not accept symbols as input parameters any more. * Replaced some calls to SCM_LENGTH. --- libguile/regex-posix.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'libguile/regex-posix.c') diff --git a/libguile/regex-posix.c b/libguile/regex-posix.c index bf941c568..d706bd6ba 100644 --- a/libguile/regex-posix.c +++ b/libguile/regex-posix.c @@ -232,9 +232,9 @@ SCM_DEFINE (scm_regexp_exec, "regexp-exec", 2, 2, 0, SCM mvec = SCM_BOOL_F; SCM_VALIDATE_RGXP (1,rx); - SCM_VALIDATE_ROSTRING (2,str); + SCM_VALIDATE_STRING (2,str); SCM_VALIDATE_INUM_DEF_COPY (3,start,0,offset); - SCM_ASSERT_RANGE (3,start,offset >= 0 && (unsigned) offset <= SCM_LENGTH (str)); + SCM_ASSERT_RANGE (3,start, offset >= 0 && offset <= SCM_STRING_LENGTH (str)); if (SCM_UNBNDP (flags)) flags = SCM_INUM0; SCM_VALIDATE_INUM (4,flags); -- cgit v1.2.3