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 `default-slot-definition-class' <class> slot

Browse source 
* libguile/goops.h (SCM_CLASS_CLASS_LAYOUT, scm_si_slotdef_class)
* module/oop/goops.scm (build-<class>-slots): Remove unused
  `default-slot-definition-class' <class> slot.
This commit is contained in:
Andy Wingo 2015-01-06 12:03:25 -05:00
parent 005c078f27
commit 79f2aaab30
2 changed files with 4 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/goops.h
View file

@ -76,7 +76,6 @@
"pw" /* direct subclasses */ \
"pw" /* direct methods */ \
"pw" /* cpl */ \
"pw" /* default-slot-definition-class */ \
"pw" /* slots */ \
"pw" /* getters-n-setters */ \
"pw" /* nfields */
@ -96,11 +95,10 @@
#define scm_si_direct_subclasses (scm_vtable_offset_user + 11) /* (class ...) */
#define scm_si_direct_methods (scm_vtable_offset_user + 12) /* (methods ...) */
#define scm_si_cpl (scm_vtable_offset_user + 13) /* (class ...) */
#define scm_si_slotdef_class (scm_vtable_offset_user + 14)
#define scm_si_slots (scm_vtable_offset_user + 15) /* ((name . options) ...) */
#define scm_si_getters_n_setters (scm_vtable_offset_user + 16)
#define scm_si_nfields (scm_vtable_offset_user + 17) /* an integer */
#define SCM_N_CLASS_SLOTS (scm_vtable_offset_user + 18)
#define scm_si_slots (scm_vtable_offset_user + 14) /* ((name . options) ...) */
#define scm_si_getters_n_setters (scm_vtable_offset_user + 15)
#define scm_si_nfields (scm_vtable_offset_user + 16) /* an integer */
#define SCM_N_CLASS_SLOTS (scm_vtable_offset_user + 17)
#define SCM_OBJ_CLASS_REDEF(x) (SCM_PACK (SCM_STRUCT_VTABLE_DATA (x) [scm_si_redefined]))
#define SCM_INST(x) SCM_STRUCT_DATA (x)

1
module/oop/goops.scm
View file

@ -239,7 +239,6 @@
(unspecialized-slot direct-subclasses)
(unspecialized-slot direct-methods)
(unspecialized-slot cpl)
(unspecialized-slot default-slot-definition-class)
(unspecialized-slot slots)
(unspecialized-slot getters-n-setters)
(unspecialized-slot nfields))))