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.

diff --git a/libguile/goops.c b/libguile/goops.c
index 957a4e8..df1a64f 100644 (file)
--- 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 fcb8968..ba51e58 100644 (file)
--- 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;