summaryrefslogtreecommitdiff
path: root/libguile/regex-posix.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/regex-posix.c')
-rw-r--r--libguile/regex-posix.c3
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;