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/snarf.h | |
| parent | fb764465068f84e3ab047c45792ffc3026e5505a (diff) | |
| download | guile-a1ec69163dd2e55e5d2b03a164513aa4a0d5943c.tar.gz | |
*.[ch]: Replace GUILE_PROC w/ SCM_DEFINE.
Diffstat (limited to 'libguile/snarf.h')
| -rw-r--r-- | libguile/snarf.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/snarf.h b/libguile/snarf.h index 205c4e117..22de70c1a 100644 --- a/libguile/snarf.h +++ b/libguile/snarf.h @@ -53,7 +53,7 @@ #ifndef SCM_MAGIC_SNARFER -#define GUILE_PROC(FNAME, PRIMNAME, REQ, OPT, VAR, ARGLIST, DOCSTRING) \ +#define SCM_DEFINE(FNAME, PRIMNAME, REQ, OPT, VAR, ARGLIST, DOCSTRING) \ static const char s_ ## FNAME [] = PRIMNAME; \ SCM FNAME ARGLIST #define GUILE_PROC1(FNAME, PRIMNAME, TYPE, ARGLIST, DOCSTRING) \ @@ -83,7 +83,7 @@ SCM FNAME ARGLIST #undef SCM_ASSERT #define SCM_ASSERT(_cond, _arg, _pos, _subr) *&*&*&*SCM_ARG_BETTER_BE_IN_POSITION(_arg,_pos,__LINE__) -#define GUILE_PROC(FNAME, PRIMNAME, REQ, OPT, VAR, ARGLIST, DOCSTRING) \ +#define SCM_DEFINE(FNAME, PRIMNAME, REQ, OPT, VAR, ARGLIST, DOCSTRING) \ %%% scm_make_gsubr (s_ ## FNAME, REQ, OPT, VAR, (SCM (*)(...)) FNAME); \ $$$P PRIMNAME #ARGLIST | REQ | OPT | VAR | __FILE__:__LINE__ | @@@ DOCSTRING @!!! @@ -113,7 +113,7 @@ $$$R STR | REQ | OPT | VAR | __FILE__:__LINE__ | @@@ CFN @!!! #undef SCM_ASSERT #define SCM_ASSERT(_cond, _arg, _pos, _subr) *&*&*&*SCM_ARG_BETTER_BE_IN_POSITION(_arg,_pos,__LINE__) -#define GUILE_PROC(FNAME, PRIMNAME, REQ, OPT, VAR, ARGLIST, DOCSTRING) \ +#define SCM_DEFINE(FNAME, PRIMNAME, REQ, OPT, VAR, ARGLIST, DOCSTRING) \ %%% scm_make_gsubr (s_ ## FNAME, REQ, OPT, VAR, (SCM (*)()) FNAME); \ $$$P PRIMNAME #ARGLIST | REQ | OPT | VAR | __FILE__:__LINE__ | @@@ DOCSTRING @!!! |