diff options
author | Andy Wingo <wingo@pobox.com> | 2015-01-06 12:06:59 -0500 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2015-01-23 16:16:00 +0100 |
commit | 9e2cd55ec818fad72e99a0295fbbff3cfca7ff0c (patch) | |
tree | ff1e65533544dc19b2f0ec229337aa3e1f933a0c | |
parent | 79f2aaab30edce3697082527f1c615ad26007601 (diff) | |
download | guile-9e2cd55ec818fad72e99a0295fbbff3cfca7ff0c.tar.gz |
Remove unused CPP defines naming <method> slots
* libguile/goops.h (scm_si_generic_function, scm_si_specializers)
(scm_si_procedure, scm_si_formals, scm_si_body)
(scm_si_make_procedure): Remove unused CPP defines.
-rw-r--r-- | libguile/deprecated.c | 1 | ||||
-rw-r--r-- | libguile/goops.h | 7 |
2 files changed, 1 insertions, 7 deletions
diff --git a/libguile/deprecated.c b/libguile/deprecated.c index 2358b42c2..e0c32f7a6 100644 --- a/libguile/deprecated.c +++ b/libguile/deprecated.c @@ -103,6 +103,7 @@ scm_init_deprecated_goops (void) } #define BUFFSIZE 32 /* big enough for most uses */ +#define scm_si_specializers 1 /* offset of spec. slot in a <method> */ #define SPEC_OF(x) SCM_SLOT (x, scm_si_specializers) static SCM diff --git a/libguile/goops.h b/libguile/goops.h index 6ba969817..bc6524cbe 100644 --- a/libguile/goops.h +++ b/libguile/goops.h @@ -150,13 +150,6 @@ #define scm_si_effective_methods 4 #define scm_si_generic_setter 5 -#define scm_si_generic_function 0 /* offset of gf slot in a <method> */ -#define scm_si_specializers 1 /* offset of spec. slot in a <method> */ -#define scm_si_procedure 2 /* offset of proc. slot in a <method> */ -#define scm_si_formals 3 /* offset of form. slot in a <method> */ -#define scm_si_body 4 /* offset of body slot in a <method> */ -#define scm_si_make_procedure 5 /* offset of makep.slot in a <method> */ - /* C interface */ SCM_API SCM scm_class_boolean; SCM_API SCM scm_class_char; |