summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2015-01-06 12:06:59 -0500
committerAndy Wingo <wingo@pobox.com>2015-01-23 16:16:00 +0100
commit9e2cd55ec818fad72e99a0295fbbff3cfca7ff0c (patch)
treeff1e65533544dc19b2f0ec229337aa3e1f933a0c
parent79f2aaab30edce3697082527f1c615ad26007601 (diff)
downloadguile-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.c1
-rw-r--r--libguile/goops.h7
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;