summaryrefslogtreecommitdiff
path: root/libguile/struct.h
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-04-18 14:12:07 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-04-18 14:12:07 +0000
commitfee7ef83a31a2c83711e726c8a346d554864352d (patch)
treebfd63dca4e2058418939226901506101dd5896aa /libguile/struct.h
parent9d0633a8a6a9e92fe0635cd3648b063b6ef2b996 (diff)
downloadguile-fee7ef83a31a2c83711e726c8a346d554864352d.tar.gz
Fixed some SCM/scm_bits_t mixups.
Diffstat (limited to 'libguile/struct.h')
-rw-r--r--libguile/struct.h2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/struct.h b/libguile/struct.h
index a2c3edbfb..c7abfc577 100644
--- a/libguile/struct.h
+++ b/libguile/struct.h
@@ -87,7 +87,7 @@ typedef scm_sizet (*scm_struct_free_t) (scm_bits_t * vtable, scm_bits_t * data);
#define SCM_STRUCT_VTABLE(X) (SCM_PACK (SCM_STRUCT_VTABLE_DATA (X) [scm_vtable_index_vtable]))
#define SCM_STRUCT_PRINTER(X) (SCM_PACK (SCM_STRUCT_VTABLE_DATA (X) [scm_vtable_index_printer]))
-#define SCM_SET_VTABLE_DESTRUCTOR(X, D) (SCM_STRUCT_DATA(X)[scm_struct_i_free] = (SCM) D)
+#define SCM_SET_VTABLE_DESTRUCTOR(X, D) (SCM_STRUCT_DATA (X) [scm_struct_i_free] = (scm_bits_t) (D))
/* Efficiency is important in the following macro, since it's used in GC */
#define SCM_LAYOUT_TAILP(X) (((X) & 32) == 0) /* R, W or O */