diff options
Diffstat (limited to 'libguile/goops.h')
-rw-r--r-- | libguile/goops.h | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/goops.h b/libguile/goops.h index 599d6944f..710abb941 100644 --- a/libguile/goops.h +++ b/libguile/goops.h @@ -99,8 +99,7 @@ typedef struct scm_t_method { #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_UNPACK (SCM_STRUCT_DATA (x)[scm_struct_i_n_words]) \ - - scm_struct_n_extra_words) + ((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) |