summaryrefslogtreecommitdiff
path: root/libguile/struct.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1999-08-29 03:27:55 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1999-08-29 03:27:55 +0000
commit2c53acd5c3d0d062e484c23113d0837932c7641d (patch)
tree8d934d47ad40a4600cb1ed5520b1f197b2efd722 /libguile/struct.c
parent4c6fe5fca51bf2524678bec0c34f408bf01650e3 (diff)
downloadguile-2c53acd5c3d0d062e484c23113d0837932c7641d.tar.gz
* struct.c, struct.h: Replace 4 procedure slots with one.
(scm_struct_i_procedure): Replaces scm_struct_i_procedure.
Diffstat (limited to 'libguile/struct.c')
-rw-r--r--libguile/struct.c5
1 files changed, 1 insertions, 4 deletions
diff --git a/libguile/struct.c b/libguile/struct.c
index 6fbf8596a..295665e3d 100644
--- a/libguile/struct.c
+++ b/libguile/struct.c
@@ -391,10 +391,7 @@ scm_make_struct (vtable, tail_array_size, init)
data = scm_alloc_struct (basic_size + tail_elts,
scm_struct_entity_n_extra_words,
"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_procedure] = SCM_BOOL_F;
data[scm_struct_i_setter] = SCM_BOOL_F;
}
else