summaryrefslogtreecommitdiff
path: root/libguile/objects.h
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-04-11 22:36:55 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-04-11 22:36:55 +0000
commit1c3e63f06d87913b08ced09d0db6196a2fde8143 (patch)
tree322f31afcb78c912aa0f5161af5effe75ee3f106 /libguile/objects.h
parentbc66755eef7cbec9997fc0fd542e664aa3611f3e (diff)
downloadguile-1c3e63f06d87913b08ced09d0db6196a2fde8143.tar.gz
The struct vtable data is now an array of scm_bits_t variables.
Diffstat (limited to 'libguile/objects.h')
-rw-r--r--libguile/objects.h4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/objects.h b/libguile/objects.h
index e567ae386..03aa52b22 100644
--- a/libguile/objects.h
+++ b/libguile/objects.h
@@ -70,7 +70,7 @@
#define SCM_CLASS_FLAGS(class)\
SCM_UNPACK (SCM_STRUCT_DATA (class)[scm_struct_i_flags])
#define SCM_OBJ_CLASS_FLAGS(obj)\
- SCM_UNPACK (SCM_STRUCT_VTABLE_DATA (obj)[scm_struct_i_flags])
+ (SCM_STRUCT_VTABLE_DATA (obj) [scm_struct_i_flags])
#define SCM_SET_CLASS_FLAGS(c, f) (SCM_CLASS_FLAGS (c) |= (f))
#define SCM_CLEAR_CLASS_FLAGS(c, f) (SCM_CLASS_FLAGS (c) &= ~(f))
#define SCM_CLASSF_MASK SCM_STRUCTF_MASK
@@ -176,7 +176,7 @@ struct scm_metaclass_operator {
#define scm_si_redefined 6
#define scm_si_hashsets 7
#define SCM_CLASS_OF(x) SCM_STRUCT_VTABLE (x)
-#define SCM_OBJ_CLASS_REDEF(x) (SCM_STRUCT_VTABLE_DATA(x)[scm_si_redefined])
+#define SCM_OBJ_CLASS_REDEF(x) (SCM_PACK (SCM_STRUCT_VTABLE_DATA (x) [scm_si_redefined]))
typedef struct scm_effective_slot_definition {
SCM name;