diff options
author | Andy Wingo <wingo@pobox.com> | 2011-11-18 12:23:52 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-11-24 11:47:36 +0100 |
commit | 2575157e54e9fa0ee3e4a3bed1bdc124c0332c8c (patch) | |
tree | 8137bd805bd6cd6eb18317197f0bca7e2cf5f029 | |
parent | 0818837f65fbf141caa84e5d46f93e6e56c1a370 (diff) | |
download | guile-2575157e54e9fa0ee3e4a3bed1bdc124c0332c8c.tar.gz |
remove unused <class> slot: keyword-access
* libguile/goops.h (SCM_CLASS_CLASS_LAYOUT, scm_si_keyword_access):
* libguile/goops.c (build_class_class_slots): Remove unused
keyword-access slot from classes.
-rw-r--r-- | libguile/goops.c | 2 | ||||
-rw-r--r-- | libguile/goops.h | 6 |
2 files changed, 2 insertions, 6 deletions
diff --git a/libguile/goops.c b/libguile/goops.c index 957a4e886..df1a64f7f 100644 --- a/libguile/goops.c +++ b/libguile/goops.c @@ -915,7 +915,6 @@ SCM_SYMBOL (sym_cpl, "cpl"); SCM_SYMBOL (sym_default_slot_definition_class, "default-slot-definition-class"); SCM_SYMBOL (sym_slots, "slots"); SCM_SYMBOL (sym_getters_n_setters, "getters-n-setters"); -SCM_SYMBOL (sym_keyword_access, "keyword-access"); SCM_SYMBOL (sym_nfields, "nfields"); @@ -950,7 +949,6 @@ build_class_class_slots (void) scm_list_1 (sym_default_slot_definition_class), scm_list_1 (sym_slots), scm_list_1 (sym_getters_n_setters), - scm_list_1 (sym_keyword_access), scm_list_1 (sym_nfields), SCM_UNDEFINED); } diff --git a/libguile/goops.h b/libguile/goops.h index fcb89685a..ba51e58b0 100644 --- a/libguile/goops.h +++ b/libguile/goops.h @@ -79,7 +79,6 @@ "pw" /* default-slot-definition-class */ \ "pw" /* slots */ \ "pw" /* getters-n-setters */ \ - "pw" /* keyword access */ \ "pw" /* nfields */ #define scm_si_redefined (scm_vtable_offset_user + 0) @@ -101,9 +100,8 @@ #define scm_si_slots (scm_vtable_offset_user + 15) /* ((name . options) ...) */ #define scm_si_name_access (scm_vtable_offset_user + 16) #define scm_si_getters_n_setters scm_si_name_access -#define scm_si_keyword_access (scm_vtable_offset_user + 17) -#define scm_si_nfields (scm_vtable_offset_user + 18) /* an integer */ -#define SCM_N_CLASS_SLOTS (scm_vtable_offset_user + 19) +#define scm_si_nfields (scm_vtable_offset_user + 17) /* an integer */ +#define SCM_N_CLASS_SLOTS (scm_vtable_offset_user + 18) typedef struct scm_t_method { SCM generic_function; |