diff options
Diffstat (limited to 'libguile')
-rw-r--r-- | libguile/goops.c | 8 | ||||
-rw-r--r-- | libguile/goops.h | 4 |
2 files changed, 9 insertions, 3 deletions
diff --git a/libguile/goops.c b/libguile/goops.c index 840ddd694..89556c540 100644 --- a/libguile/goops.c +++ b/libguile/goops.c @@ -2420,10 +2420,14 @@ static void create_standard_classes (void) { SCM slots; - SCM method_slots = scm_list_4 (scm_from_locale_symbol ("generic-function"), + SCM method_slots = scm_list_n (scm_from_locale_symbol ("generic-function"), scm_from_locale_symbol ("specializers"), sym_procedure, - scm_from_locale_symbol ("code-table")); + scm_from_locale_symbol ("code-table"), + scm_from_locale_symbol ("formals"), + scm_from_locale_symbol ("body"), + scm_from_locale_symbol ("compile-env"), + SCM_UNDEFINED); SCM amethod_slots = scm_list_1 (scm_list_3 (scm_from_locale_symbol ("slot-definition"), k_init_keyword, k_slot_definition)); diff --git a/libguile/goops.h b/libguile/goops.h index 80ba98549..49ef5355d 100644 --- a/libguile/goops.h +++ b/libguile/goops.h @@ -151,9 +151,11 @@ typedef struct scm_t_method { #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_code_table 3 /* offset of code. slot in a <method> */ +#define scm_si_formals 4 /* offset of form. slot in a <method> */ +#define scm_si_body 5 /* offset of body slot in a <method> */ +#define scm_si_compile_env 6 /* offset of comp. slot in a <method> */ /* C interface */ SCM_API SCM scm_class_boolean; |