diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-05-18 08:47:52 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-05-18 08:47:52 +0000 |
commit | af45e3b06accc40d2c92918d5901afb793e8b247 (patch) | |
tree | 36558f693d2e1bdbcd89d8ff533c8852abf47435 /libguile/regex-posix.c | |
parent | c8a54c4b87d561a6a4cc6464846af51f8215ef1e (diff) | |
download | guile-af45e3b06accc40d2c92918d5901afb793e8b247.tar.gz |
* Unified some rest argument checking and handling.
Diffstat (limited to 'libguile/regex-posix.c')
-rw-r--r-- | libguile/regex-posix.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/regex-posix.c b/libguile/regex-posix.c index 9e4ce3ae8..5ca9e3b10 100644 --- a/libguile/regex-posix.c +++ b/libguile/regex-posix.c @@ -185,13 +185,14 @@ SCM_DEFINE (scm_make_regexp, "make-regexp", 1, 0, 1, int status, cflags; SCM_VALIDATE_ROSTRING (1,pat); + SCM_VALIDATE_REST_ARGUMENT (flags); SCM_COERCE_SUBSTR (pat); /* Examine list of regexp flags. If REG_BASIC is supplied, then turn off REG_EXTENDED flag (on by default). */ cflags = REG_EXTENDED; flag = flags; - while (SCM_NNULLP (flag)) + while (!SCM_NULLP (flag)) { if (SCM_INUM (SCM_CAR (flag)) == REG_BASIC) cflags &= ~REG_EXTENDED; |