diff options
author | Han-Wen Nienhuys <hanwen@lilypond.org> | 2002-08-04 00:17:18 +0000 |
---|---|---|
committer | Han-Wen Nienhuys <hanwen@lilypond.org> | 2002-08-04 00:17:18 +0000 |
commit | c8a1bdc460f892847d0fb3f1321cdeb305160bf8 (patch) | |
tree | 5095a98a73d57cf0ce9ed56ed93b8c27bf7527e7 /libguile/struct.c | |
parent | c3164ca85ed8c43a1732a828fc299a05d556a1f3 (diff) | |
download | guile-c8a1bdc460f892847d0fb3f1321cdeb305160bf8.tar.gz |
new gc
Diffstat (limited to 'libguile/struct.c')
-rw-r--r-- | libguile/struct.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/struct.c b/libguile/struct.c index e8585896e..308af78e7 100644 --- a/libguile/struct.c +++ b/libguile/struct.c @@ -378,7 +378,7 @@ scm_free_structs (void *dummy1 SCM_UNUSED, { SCM vtable = SCM_STRUCT_VTABLE (chain); if (SCM_STRUCT_GC_CHAIN (vtable) != 0 && vtable != chain) - SCM_SETGCMARK (vtable); + SCM_SET_GC_MARK (vtable); chain = SCM_STRUCT_GC_CHAIN (chain); } /* Free unmarked structs. */ @@ -388,9 +388,9 @@ scm_free_structs (void *dummy1 SCM_UNUSED, { SCM obj = chain; chain = SCM_STRUCT_GC_CHAIN (chain); - if (SCM_GCMARKP (obj)) + if (SCM_GC_MARK_P (obj)) { - SCM_CLRGCMARK (obj); + SCM_CLEAR_GC_MARK (obj); SCM_SET_STRUCT_GC_CHAIN (obj, newchain); newchain = obj; } |