mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-29 08:20:20 +02:00
remove unused snarf macros
* libguile/snarf.h (SCM_DEFINE1, SCM_PRIMITIVE_GENERIC_1, SCM_PROC1) (SCM_GPROC1): Remove, as these deal in the removed typed subr constructors. * libguile/tags.h (scm_tcs_subrs): Remove this. Use scm_tc7_gsubr instead, though hopefully that will go too, soon.
This commit is contained in:
parent
9fdf9fd3ea
commit
9c246c0383
2 changed files with 0 additions and 42 deletions
|
@ -152,26 +152,6 @@ scm_c_export (s_ ## FNAME, NULL); \
|
||||||
)\
|
)\
|
||||||
SCM_SNARF_DOCS(primitive, FNAME, PRIMNAME, ARGLIST, REQ, OPT, VAR, DOCSTRING)
|
SCM_SNARF_DOCS(primitive, FNAME, PRIMNAME, ARGLIST, REQ, OPT, VAR, DOCSTRING)
|
||||||
|
|
||||||
#define SCM_DEFINE1(FNAME, PRIMNAME, TYPE, ARGLIST, DOCSTRING) \
|
|
||||||
SCM_SNARF_HERE(\
|
|
||||||
static const char s_ ## FNAME [] = PRIMNAME; \
|
|
||||||
SCM FNAME ARGLIST\
|
|
||||||
)\
|
|
||||||
SCM_SNARF_INIT(scm_c_define_subr (s_ ## FNAME, TYPE, FNAME); ) \
|
|
||||||
SCM_SNARF_DOCS(1, FNAME, PRIMNAME, ARGLIST, 2, 0, 0, DOCSTRING)
|
|
||||||
|
|
||||||
#define SCM_PRIMITIVE_GENERIC_1(FNAME, PRIMNAME, TYPE, ARGLIST, DOCSTRING) \
|
|
||||||
SCM_SNARF_HERE(\
|
|
||||||
static const char s_ ## FNAME [] = PRIMNAME; \
|
|
||||||
static SCM g_ ## FNAME; \
|
|
||||||
SCM FNAME ARGLIST\
|
|
||||||
)\
|
|
||||||
SCM_SNARF_INIT(\
|
|
||||||
g_ ## FNAME = SCM_PACK (0); \
|
|
||||||
scm_c_define_subr_with_generic (s_ ## FNAME, TYPE, FNAME, &g_ ## FNAME); \
|
|
||||||
)\
|
|
||||||
SCM_SNARF_DOCS(1, FNAME, PRIMNAME, ARGLIST, 2, 0, 0, DOCSTRING)
|
|
||||||
|
|
||||||
#define SCM_PROC(RANAME, STR, REQ, OPT, VAR, CFN) \
|
#define SCM_PROC(RANAME, STR, REQ, OPT, VAR, CFN) \
|
||||||
SCM_SNARF_HERE(static const char RANAME[]=STR) \
|
SCM_SNARF_HERE(static const char RANAME[]=STR) \
|
||||||
SCM_SNARF_INIT(scm_c_define_gsubr (RANAME, REQ, OPT, VAR, \
|
SCM_SNARF_INIT(scm_c_define_gsubr (RANAME, REQ, OPT, VAR, \
|
||||||
|
@ -194,23 +174,6 @@ scm_c_define_gsubr_with_generic (RANAME, REQ, OPT, VAR, \
|
||||||
(SCM_FUNC_CAST_ARBITRARY_ARGS) CFN, &GF) \
|
(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_c_define_subr (RANAME, TYPE, (SCM_FUNC_CAST_ARBITRARY_ARGS) CFN) \
|
|
||||||
)
|
|
||||||
|
|
||||||
|
|
||||||
#define SCM_GPROC1(RANAME, STR, TYPE, CFN, GF) \
|
|
||||||
SCM_SNARF_HERE(\
|
|
||||||
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_c_define_subr_with_generic (RANAME, TYPE, \
|
|
||||||
(SCM_FUNC_CAST_ARBITRARY_ARGS) CFN, &GF) \
|
|
||||||
)
|
|
||||||
|
|
||||||
#ifdef SCM_SUPPORT_STATIC_ALLOCATION
|
#ifdef SCM_SUPPORT_STATIC_ALLOCATION
|
||||||
|
|
||||||
# define SCM_SYMBOL(c_name, scheme_name) \
|
# define SCM_SYMBOL(c_name, scheme_name) \
|
||||||
|
|
|
@ -648,11 +648,6 @@ enum scm_tc8_tags
|
||||||
case scm_tc3_struct + 112:\
|
case scm_tc3_struct + 112:\
|
||||||
case scm_tc3_struct + 120
|
case scm_tc3_struct + 120
|
||||||
|
|
||||||
/* For subrs
|
|
||||||
*/
|
|
||||||
#define scm_tcs_subrs \
|
|
||||||
case scm_tc7_gsubr
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#if (SCM_ENABLE_DEPRECATED == 1)
|
#if (SCM_ENABLE_DEPRECATED == 1)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue