diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-10-09 16:27:24 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-10-09 16:27:24 +0000 |
commit | 9fd38a3d142821f117716b90aa6acace79f1b944 (patch) | |
tree | 80f4cfd972b60cdbf36013bc5ea04e94e7674418 /libguile/regex-posix.c | |
parent | bfa974f0a4a506888ada92ce362b3eeddde4689b (diff) | |
download | guile-9fd38a3d142821f117716b90aa6acace79f1b944.tar.gz |
* Made some functions not accept symbols as input parameters any more.
* Replaced some calls to SCM_LENGTH.
Diffstat (limited to 'libguile/regex-posix.c')
-rw-r--r-- | libguile/regex-posix.c | 4 |
1 files changed, 2 insertions, 2 deletions
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); |