diff options
| author | Marius Vollmer <mvo@zagadka.de> | 2001-05-20 00:35:43 +0000 |
|---|---|---|
| committer | Marius Vollmer <mvo@zagadka.de> | 2001-05-20 00:35:43 +0000 |
| commit | 9a441ddb342277f220435280718658f3f126ed43 (patch) | |
| tree | 211527b14d2c0dbc45843db04de9b6255539ce7b /libguile/snarf.h | |
| parent | c88a8162c408fe70d27e144a4a380fc88ab20dc5 (diff) | |
(scm_c_make_gsubr, scm_c_define_gsubr, scm_c_make_gsubr_with_generic,
scm_c_define_gsubr_with_generic): New functions. They replace
scm_make_gsubr and scm_make_gsubr_with_generic. The `make' variants
only create the gsubr object, while the `define' variants also put it
into the current module. Changed all callers. (scm_make_gsubr,
scm_make_gsubr_with_generic): Deprecated.
(scm_c_make_subr, scm_c_define_subr, scm_c_make_subr_with_generic,
scm_c_define_subr_with_generic): New functions. They replace
scm_make_subr, scm_make_subr_opt and scm_make_subr_with_generic. The
`make' variants only create the subr object, while the `define'
variants also put it into the current module. Changed all callers.
(scm_make_subr, scm_make_subr_opt, scm_make_subr_with_generic):
Deprecated.
Diffstat (limited to 'libguile/snarf.h')
| -rw-r--r-- | libguile/snarf.h | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/libguile/snarf.h b/libguile/snarf.h index 9aef75fcc..ea1926632 100644 --- a/libguile/snarf.h +++ b/libguile/snarf.h @@ -92,8 +92,8 @@ static const char s_ ## FNAME [] = PRIMNAME; \ SCM FNAME ARGLIST\ )\ SCM_SNARF_INIT(\ -scm_make_gsubr (s_ ## FNAME, REQ, OPT, VAR, \ - (SCM_FUNC_CAST_ARBITRARY_ARGS) FNAME); \ +scm_c_define_gsubr (s_ ## FNAME, REQ, OPT, VAR, \ + (SCM_FUNC_CAST_ARBITRARY_ARGS) FNAME); \ )\ SCM_SNARF_DOCS(\ SCM_SNARF_DOC_STARTP PRIMNAME #ARGLIST | REQ | OPT | VAR | __FILE__:__LINE__ | \ @@ -105,7 +105,7 @@ SCM_SNARF_HERE(\ static const char s_ ## FNAME [] = PRIMNAME; \ SCM FNAME ARGLIST\ )\ -SCM_SNARF_INIT(scm_make_subr (s_ ## FNAME, TYPE, FNAME); ) \ +SCM_SNARF_INIT(scm_c_define_subr (s_ ## FNAME, TYPE, FNAME); ) \ SCM_SNARF_DOCS(\ SCM_SNARF_DOC_START1 PRIMNAME #ARGLIST | 2 | 0 | 0 | __FILE__:__LINE__ | \ SCM_SNARF_DOCSTRING_START DOCSTRING SCM_SNARF_DOCSTRING_END \ @@ -113,13 +113,13 @@ SCM_SNARF_DOC_START1 PRIMNAME #ARGLIST | 2 | 0 | 0 | __FILE__:__LINE__ | \ #define SCM_PROC(RANAME, STR, REQ, OPT, VAR, CFN) \ SCM_SNARF_HERE(static const char RANAME[]=STR) \ -SCM_SNARF_INIT(scm_make_gsubr (RANAME, REQ, OPT, VAR, \ - (SCM_FUNC_CAST_ARBITRARY_ARGS) CFN)) +SCM_SNARF_INIT(scm_c_define_gsubr (RANAME, REQ, OPT, VAR, \ + (SCM_FUNC_CAST_ARBITRARY_ARGS) CFN)) #define SCM_REGISTER_PROC(RANAME, STR, REQ, OPT, VAR, CFN) \ SCM_SNARF_HERE(static const char RANAME[]=STR) \ -SCM_SNARF_INIT(scm_make_gsubr (RANAME, REQ, OPT, VAR, \ - (SCM_FUNC_CAST_ARBITRARY_ARGS) CFN);) \ +SCM_SNARF_INIT(scm_c_define_gsubr (RANAME, REQ, OPT, VAR, \ + (SCM_FUNC_CAST_ARBITRARY_ARGS) CFN);) \ SCM_SNARF_DOCS(\ SCM_SNARF_DOC_STARTR STR | REQ | OPT | VAR | __FILE__:__LINE__ | \ SCM_SNARF_DOCSTRING_START CFN SCM_SNARF_DOCSTRING_END \ @@ -131,14 +131,14 @@ static const char RANAME[]=STR;\ static SCM GF \ )SCM_SNARF_INIT(\ GF = SCM_PACK (0); /* Dirk:FIXME:: Can we safely use #f instead of 0? */ \ -scm_make_gsubr_with_generic (RANAME, REQ, OPT, VAR, \ - (SCM_FUNC_CAST_ARBITRARY_ARGS) CFN, &GF) \ +scm_c_define_gsubr_with_generic (RANAME, REQ, OPT, VAR, \ + (SCM_FUNC_CAST_ARBITRARY_ARGS) CFN, &GF) \ ) #define SCM_PROC1(RANAME, STR, TYPE, CFN) \ SCM_SNARF_HERE(static const char RANAME[]=STR) \ SCM_SNARF_INIT(\ -scm_make_subr (RANAME, TYPE, (SCM_FUNC_CAST_ARBITRARY_ARGS) CFN) \ +scm_c_define_subr (RANAME, TYPE, (SCM_FUNC_CAST_ARBITRARY_ARGS) CFN) \ ) @@ -148,8 +148,8 @@ static const char RANAME[]=STR; \ static SCM GF \ )SCM_SNARF_INIT(\ GF = SCM_PACK (0); /* Dirk:FIXME:: Can we safely use #f instead of 0? */ \ -scm_make_subr_with_generic (RANAME, TYPE, \ - (SCM_FUNC_CAST_ARBITRARY_ARGS) CFN, &GF) \ +scm_c_define_subr_with_generic (RANAME, TYPE, \ + (SCM_FUNC_CAST_ARBITRARY_ARGS) CFN, &GF) \ ) #define SCM_SYNTAX(RANAME, STR, TYPE, CFN) \ |