From 73e10adf202fa3fd2310a4cb4c505c4a3a7acf3c Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Sun, 29 Aug 1999 03:26:21 +0000 Subject: [PATCH] * gc.c (scm_gc_mark): Mark 1 procedure slot in entities instead of 4. --- libguile/gc.c | 5 +---- 1 file changed, 1 insertion(+), 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)