summaryrefslogtreecommitdiff
path: root/libguile/goops.h
diff options
context:
space:
mode:
authorHan-Wen Nienhuys <hanwen@lilypond.org>2004-03-28 13:55:03 +0000
committerHan-Wen Nienhuys <hanwen@lilypond.org>2004-03-28 13:55:03 +0000
commit702551e6cc41e90745ca5f8626956ecab46c41c9 (patch)
tree235ad8bc5db51683904a1dd730ea3857c0ffaa95 /libguile/goops.h
parent88a7ae1f6818b68bc72a4bb8763b3299c69c4988 (diff)
downloadguile-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.h3
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)