diff options
author | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-05 19:05:23 +0000 |
---|---|---|
committer | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-05 19:05:23 +0000 |
commit | a1ec69163dd2e55e5d2b03a164513aa4a0d5943c (patch) | |
tree | 99489194c03fa41397c77e84b3f8660ffef1ed30 /libguile/regex-posix.c | |
parent | fb764465068f84e3ab047c45792ffc3026e5505a (diff) | |
download | guile-a1ec69163dd2e55e5d2b03a164513aa4a0d5943c.tar.gz |
*.[ch]: Replace GUILE_PROC w/ SCM_DEFINE.
Diffstat (limited to 'libguile/regex-posix.c')
-rw-r--r-- | libguile/regex-posix.c | 6 |
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 |