summaryrefslogtreecommitdiff
path: root/libguile/struct.h
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.h
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.h')
-rw-r--r--libguile/struct.h6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/struct.h b/libguile/struct.h
index 0cd610caa..1fd4dd440 100644
--- a/libguile/struct.h
+++ b/libguile/struct.h
@@ -51,11 +51,11 @@
/* Number of words with negative index */
#define scm_struct_n_extra_words 4
-#define scm_struct_entity_n_extra_words 9
+#define scm_struct_entity_n_extra_words 6
/* These are how the initial words of a vtable are allocated. */
-#define scm_struct_i_setter -9 /* Setter */
-#define scm_struct_i_proc -8 /* Optional procedure slots */
+#define scm_struct_i_setter -6 /* Setter */
+#define scm_struct_i_procedure -5 /* Optional procedure slot */
#define scm_struct_i_free -4 /* Destructor */
#define scm_struct_i_ptr -3 /* Start of block (see alloc_struct) */
#define scm_struct_i_n_words -2 /* How many words allocated to this struct? */