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 */ #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 */ -#define scm_si_specializers 1 /* offset of spec. slot in a */ -#define scm_si_procedure 2 /* offset of proc. slot in a */ -#define scm_si_formals 3 /* offset of form. slot in a */ -#define scm_si_body 4 /* offset of body slot in a */ -#define scm_si_make_procedure 5 /* offset of makep.slot in a */ - /* C interface */ SCM_API SCM scm_class_boolean; SCM_API SCM scm_class_char;