From 86d31dfe7d0754b863863f6544c75097ef68fe8c Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Tue, 15 May 2001 14:57:22 +0000 Subject: Merge from mvo-vcell-cleanup-1-branch. --- libguile/regex-posix.c | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'libguile/regex-posix.c') diff --git a/libguile/regex-posix.c b/libguile/regex-posix.c index df7fe06a0..1f02d688b 100644 --- a/libguile/regex-posix.c +++ b/libguile/regex-posix.c @@ -303,14 +303,14 @@ scm_init_regex_posix () scm_set_smob_free (scm_tc16_regex, regex_free); /* Compilation flags. */ - scm_sysintern ("regexp/basic", scm_long2num (REG_BASIC)); - scm_sysintern ("regexp/extended", scm_long2num (REG_EXTENDED)); - scm_sysintern ("regexp/icase", scm_long2num (REG_ICASE)); - scm_sysintern ("regexp/newline", scm_long2num (REG_NEWLINE)); + scm_c_define ("regexp/basic", scm_long2num (REG_BASIC)); + scm_c_define ("regexp/extended", scm_long2num (REG_EXTENDED)); + scm_c_define ("regexp/icase", scm_long2num (REG_ICASE)); + scm_c_define ("regexp/newline", scm_long2num (REG_NEWLINE)); /* Execution flags. */ - scm_sysintern ("regexp/notbol", scm_long2num (REG_NOTBOL)); - scm_sysintern ("regexp/noteol", scm_long2num (REG_NOTEOL)); + scm_c_define ("regexp/notbol", scm_long2num (REG_NOTBOL)); + scm_c_define ("regexp/noteol", scm_long2num (REG_NOTEOL)); #ifndef SCM_MAGIC_SNARFER #include "libguile/regex-posix.x" -- cgit v1.2.3