mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

remove unused <class> slot: keyword-access

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2011-11-18 12:23:52 +01:00
parent 0818837f65
commit 2575157e54
2 changed files with 2 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/goops.c
View file

@ -915,7 +915,6 @@ SCM_SYMBOL (sym_cpl, "cpl");
SCM_SYMBOL (sym_default_slot_definition_class, "default-slot-definition-class"); SCM_SYMBOL (sym_default_slot_definition_class, "default-slot-definition-class");
SCM_SYMBOL (sym_slots, "slots"); SCM_SYMBOL (sym_slots, "slots");
SCM_SYMBOL (sym_getters_n_setters, "getters-n-setters"); SCM_SYMBOL (sym_getters_n_setters, "getters-n-setters");
SCM_SYMBOL (sym_keyword_access, "keyword-access");
SCM_SYMBOL (sym_nfields, "nfields"); 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_default_slot_definition_class),
scm_list_1 (sym_slots), scm_list_1 (sym_slots),
scm_list_1 (sym_getters_n_setters), scm_list_1 (sym_getters_n_setters),
scm_list_1 (sym_keyword_access),
scm_list_1 (sym_nfields), scm_list_1 (sym_nfields),
SCM_UNDEFINED); SCM_UNDEFINED);
} }

6
libguile/goops.h
View file

@ -79,7 +79,6 @@
"pw" /* default-slot-definition-class */ \ "pw" /* default-slot-definition-class */ \
"pw" /* slots */ \ "pw" /* slots */ \
"pw" /* getters-n-setters */ \ "pw" /* getters-n-setters */ \
"pw" /* keyword access */ \
"pw" /* nfields */ "pw" /* nfields */
#define scm_si_redefined (scm_vtable_offset_user + 0) #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_slots (scm_vtable_offset_user + 15) /* ((name . options) ...) */
#define scm_si_name_access (scm_vtable_offset_user + 16) #define scm_si_name_access (scm_vtable_offset_user + 16)
#define scm_si_getters_n_setters scm_si_name_access #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 + 17) /* an integer */
#define scm_si_nfields (scm_vtable_offset_user + 18) /* an integer */ #define SCM_N_CLASS_SLOTS (scm_vtable_offset_user + 18)
#define SCM_N_CLASS_SLOTS (scm_vtable_offset_user + 19)
typedef struct scm_t_method { typedef struct scm_t_method {
SCM generic_function; SCM generic_function;