wingo pushed a commit to branch master
in repository guile.
commit 9e2cd55ec818fad72e99a0295fbbff3cfca7ff0c
Author: Andy Wingo <[email protected]>
Date: Tue Jan 6 12:06:59 2015 -0500
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.
---
libguile/deprecated.c | 1 +
libguile/goops.h | 7 -------
2 files changed, 1 insertions(+), 7 deletions(-)
diff --git a/libguile/deprecated.c b/libguile/deprecated.c
index 2358b42..e0c32f7 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 6ba9698..bc6524c 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;