summaryrefslogtreecommitdiff
path: root/libguile/struct.h
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-06-11 08:51:28 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-06-11 08:51:28 +0000
commit00d8d838bb05cd659a090541c7aefdbf826a89ad (patch)
treeaa135771b664e879d50418a47b54b6aa141c3177 /libguile/struct.h
parent495c67e53bc96891322b3c18cdbab3597e1d3e17 (diff)
downloadguile-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.h2
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))