diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-08-29 03:27:55 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-08-29 03:27:55 +0000 |
commit | 2c53acd5c3d0d062e484c23113d0837932c7641d (patch) | |
tree | 8d934d47ad40a4600cb1ed5520b1f197b2efd722 /libguile/struct.c | |
parent | 4c6fe5fca51bf2524678bec0c34f408bf01650e3 (diff) | |
download | guile-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.c | 5 |
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 |