diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-03-12 18:30:33 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-03-12 18:30:33 +0000 |
commit | f12677062e15015d7ef7d36fe3d103a77d1fefca (patch) | |
tree | e9ec3a99d2037b92f5c0c95e2a5b6e234b7ebb9d /libguile/struct.h | |
parent | 67673f7594ecd4768b9e6db847949406a9e10091 (diff) | |
download | guile-f12677062e15015d7ef7d36fe3d103a77d1fefca.tar.gz |
*** empty log message ***
Diffstat (limited to 'libguile/struct.h')
-rw-r--r-- | libguile/struct.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/struct.h b/libguile/struct.h index ca51267a7..9e7bfba47 100644 --- a/libguile/struct.h +++ b/libguile/struct.h @@ -79,7 +79,7 @@ typedef scm_sizet (*scm_struct_free_t) (SCM *vtable, SCM *data); #define SCM_STRUCTP(X) (SCM_NIMP(X) && (SCM_TYP3(X) == scm_tc3_cons_gloc)) #define SCM_STRUCT_DATA(X) ((SCM*)(SCM_CDR(X))) -#define SCM_STRUCT_VTABLE_DATA(X) ((SCM *)(SCM_BITS (SCM_CAR(X)) - 1)) +#define SCM_STRUCT_VTABLE_DATA(X) ((SCM *)(SCM_UNPACK (SCM_CAR(X)) - 1)) #define SCM_STRUCT_LAYOUT(X) (SCM_STRUCT_VTABLE_DATA(X)[scm_vtable_index_layout]) #define SCM_STRUCT_VTABLE(X) (SCM_STRUCT_VTABLE_DATA(X)[scm_vtable_index_vtable]) #define SCM_STRUCT_PRINTER(X) (SCM_STRUCT_VTABLE_DATA(X)[scm_vtable_index_printer]) |