summaryrefslogtreecommitdiff
path: root/libguile/struct.c
diff options
context:
space:
mode:
authorHan-Wen Nienhuys <hanwen@lilypond.org>2002-08-04 00:17:18 +0000
committerHan-Wen Nienhuys <hanwen@lilypond.org>2002-08-04 00:17:18 +0000
commitc8a1bdc460f892847d0fb3f1321cdeb305160bf8 (patch)
tree5095a98a73d57cf0ce9ed56ed93b8c27bf7527e7 /libguile/struct.c
parentc3164ca85ed8c43a1732a828fc299a05d556a1f3 (diff)
downloadguile-c8a1bdc460f892847d0fb3f1321cdeb305160bf8.tar.gz
new gc
Diffstat (limited to 'libguile/struct.c')
-rw-r--r--libguile/struct.c6
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;
}