diff options
author | Han-Wen Nienhuys <hanwen@lilypond.org> | 2004-03-28 13:55:03 +0000 |
---|---|---|
committer | Han-Wen Nienhuys <hanwen@lilypond.org> | 2004-03-28 13:55:03 +0000 |
commit | 702551e6cc41e90745ca5f8626956ecab46c41c9 (patch) | |
tree | 235ad8bc5db51683904a1dd730ea3857c0ffaa95 /libguile/goops.h | |
parent | 88a7ae1f6818b68bc72a4bb8763b3299c69c4988 (diff) | |
download | guile-702551e6cc41e90745ca5f8626956ecab46c41c9.tar.gz |
* gc.h (SCM_GC_CELL_TYPE): SCM_GC_CELL_TYPE uses SCM_GC_CELL_OBJECT.
* goops.h (SCM_NUMBER_OF_SLOTS): don't SCM_UNPACK the result.
* backtrace.c ("display_backtrace_body"): SCM_PACK before SCM_EQ_P
(display_frame): idem.
(display_backtrace_file_and_line): idem.
* tags.h (SCM_UNPACK): stricter typechecking on SCM_UNPACK
arguments.
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) |