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.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/regex-posix.c b/libguile/regex-posix.c
index 39518f110..cce256580 100644
--- a/libguile/regex-posix.c
+++ b/libguile/regex-posix.c
@@ -133,7 +133,7 @@ scm_regexp_error_msg (int regerrno, regex_t *rx)
return SCM_CHARS (errmsg);
}
-GUILE_PROC (scm_regexp_p, "regexp?", 1, 0, 0,
+SCM_DEFINE (scm_regexp_p, "regexp?", 1, 0, 0,
(SCM x),
"Return @code{#t} if @var{obj} is a compiled regular expression, or
@code{#f} otherwise.")
@@ -143,7 +143,7 @@ GUILE_PROC (scm_regexp_p, "regexp?", 1, 0, 0,
}
#undef FUNC_NAME
-GUILE_PROC (scm_make_regexp, "make-regexp", 1, 0, 1,
+SCM_DEFINE (scm_make_regexp, "make-regexp", 1, 0, 1,
(SCM pat, SCM flags),
"Compile the regular expression described by @var{str}, and return the
compiled regexp structure. If @var{str} does not describe a legal
@@ -223,7 +223,7 @@ the earlier one.
}
#undef FUNC_NAME
-GUILE_PROC (scm_regexp_exec, "regexp-exec", 2, 2, 0,
+SCM_DEFINE (scm_regexp_exec, "regexp-exec", 2, 2, 0,
(SCM rx, SCM str, SCM start, SCM flags),
"Match the compiled regular expression @var{regexp} against @code{str}.
If the optional integer @var{start} argument is provided, begin matching