summaryrefslogtreecommitdiff
path: root/libguile/gc.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/gc.c')
-rw-r--r--libguile/gc.c5
1 files changed, 1 insertions, 4 deletions
diff --git a/libguile/gc.c b/libguile/gc.c
index 0c4a0f931..c383836d3 100644
--- a/libguile/gc.c
+++ b/libguile/gc.c
@@ -665,10 +665,7 @@ gc_mark_nimp:
if (vtable_data[scm_struct_i_flags] & SCM_STRUCTF_ENTITY)
{
- scm_gc_mark (mem[scm_struct_i_proc + 0]);
- scm_gc_mark (mem[scm_struct_i_proc + 1]);
- scm_gc_mark (mem[scm_struct_i_proc + 2]);
- scm_gc_mark (mem[scm_struct_i_proc + 3]);
+ scm_gc_mark (mem[scm_struct_i_procedure]);
scm_gc_mark (mem[scm_struct_i_setter]);
}
if (len)