diff options
author | Neil Jerram <neil@ossau.uklinux.net> | 2009-01-04 21:32:23 +0000 |
---|---|---|
committer | Neil Jerram <neil@ossau.uklinux.net> | 2009-01-04 22:46:47 +0000 |
commit | a9931e4e1ab80e6b47d6d836edf834f530bd9522 (patch) | |
tree | 071b6725354a340680267644936503743e2fa3c0 /libguile/goops.h | |
parent | 53e4bd36f3c8fc756fc091891b79e6aa16820256 (diff) | |
download | guile-a9931e4e1ab80e6b47d6d836edf834f530bd9522.tar.gz |
Fix implementation of %fast-slot-ref and %fast-slot-set!
* libguile/goops.c (scm_sys_fast_slot_ref, scm_sys_fast_slot_set_x):
Correct incantation for getting the number of slots of the specified
instance.
* libguile/goops.h (SCM_NUMBER_OF_SLOTS): Removed (because wrong).
* test-suite/standalone/test-fast-slot-ref.in: New standalone test.
* configure.in: Generate test-suite/standalone/test-fast-slot-ref.
* test-suite/standalone/Makefile.am (check_SCRIPTS): Add
test-fast-slot-ref.
Diffstat (limited to 'libguile/goops.h')
-rw-r--r-- | libguile/goops.h | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/libguile/goops.h b/libguile/goops.h index 80ba98549..6b88ae267 100644 --- a/libguile/goops.h +++ b/libguile/goops.h @@ -98,8 +98,6 @@ typedef struct scm_t_method { /* Also defined in libguile/objects.c */ #define SCM_CLASS_OF(x) SCM_STRUCT_VTABLE (x) #define SCM_ACCESSORS_OF(x) (SCM_PACK (SCM_STRUCT_VTABLE_DATA (x)[scm_si_getters_n_setters])) -#define SCM_NUMBER_OF_SLOTS(x) \ - ((SCM_STRUCT_DATA (x)[scm_struct_i_n_words]) - scm_struct_n_extra_words) #define SCM_CLASSP(x) \ (SCM_STRUCTP (x) && SCM_STRUCT_VTABLE_FLAGS (x) & SCM_CLASSF_METACLASS) |