From fcfb248d0c06c530aa0c36f978b718eef17d1c81 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Tue, 24 Jun 1997 05:33:59 +0000 Subject: [PATCH] * regex-posix.c (scm_make_regexp, scm_regexp_exec): Add optional FLAGS arguments. (scm_init_regex_posix): Define constants for the REG_mumble flags; name them according to the SCSH convention: regexp/mumble. --- libguile/regex-posix.c | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/libguile/regex-posix.c b/libguile/regex-posix.c index cd331a527..920697584 100644 --- a/libguile/regex-posix.c +++ b/libguile/regex-posix.c @@ -245,14 +245,14 @@ scm_init_regex_posix () scm_tc16_regex_t = scm_newsmob (®ex_t_smob); /* Compilation flags. */ - scm_sysintern ("REG_EXTENDED", scm_long2num (REG_EXTENDED)); - scm_sysintern ("REG_ICASE", scm_long2num (REG_ICASE)); - scm_sysintern ("REG_NOSUB", scm_long2num (REG_NOSUB)); - scm_sysintern ("REG_NEWLINE", scm_long2num (REG_NEWLINE)); + scm_sysintern ("regexp/extended", scm_long2num (REG_EXTENDED)); + scm_sysintern ("regexp/icase", scm_long2num (REG_ICASE)); + scm_sysintern ("regexp/nosub", scm_long2num (REG_NOSUB)); + scm_sysintern ("regexp/newline", scm_long2num (REG_NEWLINE)); /* Execution flags. */ - scm_sysintern ("REG_NOTBOL", scm_long2num (REG_NOTBOL)); - scm_sysintern ("REG_NOTEOL", scm_long2num (REG_NOTEOL)); + scm_sysintern ("regexp/notbol", scm_long2num (REG_NOTBOL)); + scm_sysintern ("regexp/noteol", scm_long2num (REG_NOTEOL)); #include "regex-posix.x"