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

Remove unused CPP defines naming <method> slots

Browse source 
* libguile/goops.h (scm_si_generic_function, scm_si_specializers)
  (scm_si_procedure, scm_si_formals, scm_si_body)
  (scm_si_make_procedure): Remove unused CPP defines.
This commit is contained in:
Andy Wingo 2015-01-06 12:06:59 -05:00
parent 79f2aaab30
commit 9e2cd55ec8
2 changed files with 1 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/deprecated.c
View file

@ -103,6 +103,7 @@ scm_init_deprecated_goops (void)
} }
#define BUFFSIZE 32 /* big enough for most uses */ #define BUFFSIZE 32 /* big enough for most uses */
#define scm_si_specializers 1 /* offset of spec. slot in a <method> */
#define SPEC_OF(x) SCM_SLOT (x, scm_si_specializers) #define SPEC_OF(x) SCM_SLOT (x, scm_si_specializers)
static SCM static SCM

7
libguile/goops.h
View file

@ -150,13 +150,6 @@
#define scm_si_effective_methods 4 #define scm_si_effective_methods 4
#define scm_si_generic_setter 5 #define scm_si_generic_setter 5
#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_formals 3 /* offset of form. slot in a <method> */
#define scm_si_body 4 /* offset of body slot in a <method> */
#define scm_si_make_procedure 5 /* offset of makep.slot in a <method> */
/* C interface */ /* C interface */
SCM_API SCM scm_class_boolean; SCM_API SCM scm_class_boolean;
SCM_API SCM scm_class_char; SCM_API SCM scm_class_char;