diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-06-11 08:51:28 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-06-11 08:51:28 +0000 |
commit | 00d8d838bb05cd659a090541c7aefdbf826a89ad (patch) | |
tree | aa135771b664e879d50418a47b54b6aa141c3177 /libguile/struct.h | |
parent | 495c67e53bc96891322b3c18cdbab3597e1d3e17 (diff) | |
download | guile-00d8d838bb05cd659a090541c7aefdbf826a89ad.tar.gz |
* Simplified the goops macro system a bit and fixed a bug.
Diffstat (limited to 'libguile/struct.h')
-rw-r--r-- | libguile/struct.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/struct.h b/libguile/struct.h index cf7a027fd..6c31ea90b 100644 --- a/libguile/struct.h +++ b/libguile/struct.h @@ -86,6 +86,8 @@ typedef size_t (*scm_struct_free_t) (scm_bits_t * vtable, scm_bits_t * data); #define SCM_SET_STRUCT_LAYOUT(X, v) (SCM_STRUCT_VTABLE_DATA (X) [scm_vtable_index_layout] = SCM_UNPACK (v)) #define SCM_STRUCT_VTABLE(X) (SCM_PACK (SCM_STRUCT_VTABLE_DATA (X) [scm_vtable_index_vtable])) +#define SCM_STRUCT_VTABLE_FLAGS(X) \ + (SCM_STRUCT_VTABLE_DATA (X) [scm_struct_i_flags]) #define SCM_STRUCT_PRINTER(X) (SCM_PACK (SCM_STRUCT_VTABLE_DATA (X) [scm_vtable_index_printer])) #define SCM_SET_STRUCT_PRINTER(x, v)\ (SCM_STRUCT_VTABLE_DATA (x) [scm_vtable_index_printer] = SCM_UNPACK (v)) |