diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-04-11 22:36:55 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-04-11 22:36:55 +0000 |
commit | 1c3e63f06d87913b08ced09d0db6196a2fde8143 (patch) | |
tree | 322f31afcb78c912aa0f5161af5effe75ee3f106 /libguile/objects.h | |
parent | bc66755eef7cbec9997fc0fd542e664aa3611f3e (diff) | |
download | guile-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.h | 4 |
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; |