diff options
Diffstat (limited to 'libguile/goops.c')
-rw-r--r-- | libguile/goops.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/goops.c b/libguile/goops.c index 8e147bea9..94e7d6847 100644 --- a/libguile/goops.c +++ b/libguile/goops.c @@ -1313,7 +1313,7 @@ wrap_init (SCM class, SCM *m, long n) SCM_SET_STRUCT_GC_CHAIN (z, 0); SCM_SET_CELL_WORD_1 (z, m); SCM_SET_CELL_WORD_0 (z, (scm_t_bits) SCM_STRUCT_DATA (class) - | scm_tc3_cons_gloc); + | scm_tc3_struct); return z; } @@ -2594,7 +2594,7 @@ scm_wrap_object (SCM class, void *data) SCM_NEWCELL2 (z); SCM_SETCDR (z, SCM_PACK ((scm_t_bits) data)); SCM_SET_STRUCT_GC_CHAIN (z, 0); - SCM_SETCAR (z, SCM_UNPACK (SCM_CDR (class)) | scm_tc3_cons_gloc); + SCM_SETCAR (z, SCM_UNPACK (SCM_CDR (class)) | scm_tc3_struct); return z; } |