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/macros.c | |
parent | fb764465068f84e3ab047c45792ffc3026e5505a (diff) | |
download | guile-a1ec69163dd2e55e5d2b03a164513aa4a0d5943c.tar.gz |
*.[ch]: Replace GUILE_PROC w/ SCM_DEFINE.
Diffstat (limited to 'libguile/macros.c')
-rw-r--r-- | libguile/macros.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/libguile/macros.c b/libguile/macros.c index ed52dd9e8..f57a4bb25 100644 --- a/libguile/macros.c +++ b/libguile/macros.c @@ -52,7 +52,7 @@ long scm_tc16_macro; -GUILE_PROC (scm_makacro, "procedure->syntax", 1, 0, 0, +SCM_DEFINE (scm_makacro, "procedure->syntax", 1, 0, 0, (SCM code), "") #define FUNC_NAME s_scm_makacro @@ -63,7 +63,7 @@ GUILE_PROC (scm_makacro, "procedure->syntax", 1, 0, 0, #undef FUNC_NAME -GUILE_PROC(scm_makmacro, "procedure->macro", 1, 0, 0, +SCM_DEFINE(scm_makmacro, "procedure->macro", 1, 0, 0, (SCM code), "") #define FUNC_NAME s_scm_makmacro @@ -74,7 +74,7 @@ GUILE_PROC(scm_makmacro, "procedure->macro", 1, 0, 0, #undef FUNC_NAME -GUILE_PROC(scm_makmmacro, "procedure->memoizing-macro", 1, 0, 0, +SCM_DEFINE(scm_makmmacro, "procedure->memoizing-macro", 1, 0, 0, (SCM code), "") #define FUNC_NAME s_scm_makmmacro @@ -85,7 +85,7 @@ GUILE_PROC(scm_makmmacro, "procedure->memoizing-macro", 1, 0, 0, #undef FUNC_NAME -GUILE_PROC (scm_macro_p, "macro?", 1, 0, 0, +SCM_DEFINE (scm_macro_p, "macro?", 1, 0, 0, (SCM obj), "Return @code{#t} if @var{obj} is a regular macro, a memoizing macro or a syntax transformer.") @@ -100,7 +100,7 @@ SCM_SYMBOL (scm_sym_syntax, "syntax"); SCM_SYMBOL (scm_sym_macro, "macro"); SCM_SYMBOL (scm_sym_mmacro, "macro!"); -GUILE_PROC (scm_macro_type, "macro-type", 1, 0, 0, +SCM_DEFINE (scm_macro_type, "macro-type", 1, 0, 0, (SCM m), "Return one of the symbols @code{syntax}, @code{macro} or @code{macro!}, depending on whether @var{obj} is a syntax tranformer, a regular macro, @@ -121,7 +121,7 @@ or a memoizing macro, respectively. If @var{obj} is not a macro, #undef FUNC_NAME -GUILE_PROC (scm_macro_name, "macro-name", 1, 0, 0, +SCM_DEFINE (scm_macro_name, "macro-name", 1, 0, 0, (SCM m), "") #define FUNC_NAME s_scm_macro_name @@ -132,7 +132,7 @@ GUILE_PROC (scm_macro_name, "macro-name", 1, 0, 0, #undef FUNC_NAME -GUILE_PROC (scm_macro_transformer, "macro-transformer", 1, 0, 0, +SCM_DEFINE (scm_macro_transformer, "macro-transformer", 1, 0, 0, (SCM m), "") #define FUNC_NAME s_scm_macro_transformer |