From 25c9482661943d5ae2d5d2563ee174202e2a0bf2 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Thu, 11 Mar 1999 11:47:49 +0000 Subject: [PATCH] * struct.c (scm_make_struct): Allocate one word more for entities and initialize the new slot. --- libguile/struct.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/libguile/struct.c b/libguile/struct.c index 405291129..4caadcfd7 100644 --- a/libguile/struct.c +++ b/libguile/struct.c @@ -358,12 +358,13 @@ scm_make_struct (vtable, tail_array_size, init) if (SCM_STRUCT_DATA (vtable)[scm_struct_i_flags] & SCM_STRUCTF_ENTITY) { data = scm_alloc_struct (basic_size + tail_elts, - scm_struct_n_extra_words + 4, + scm_struct_n_extra_words + 5, "make-struct"); data[scm_struct_i_proc + 0] = SCM_BOOL_F; data[scm_struct_i_proc + 1] = SCM_BOOL_F; data[scm_struct_i_proc + 2] = SCM_BOOL_F; data[scm_struct_i_proc + 3] = SCM_BOOL_F; + data[scm_struct_i_setter] = SCM_BOOL_F; } else data = scm_alloc_struct (basic_size + tail_elts,