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.h | |
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.h')
-rw-r--r-- | libguile/struct.h | 6 |
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? */ |