diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-03-11 11:47:58 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-03-11 11:47:58 +0000 |
commit | 7ee70a2659521d18bfc366e7235b507c389a06c1 (patch) | |
tree | 1536ae200ea337032e408ac27e06ec4b3a590624 /libguile/struct.h | |
parent | 25c9482661943d5ae2d5d2563ee174202e2a0bf2 (diff) | |
download | guile-7ee70a2659521d18bfc366e7235b507c389a06c1.tar.gz |
* struct.h (scm_struct_i_setter): New constant.
Diffstat (limited to 'libguile/struct.h')
-rw-r--r-- | libguile/struct.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/libguile/struct.h b/libguile/struct.h index ea2221880..c989ec29e 100644 --- a/libguile/struct.h +++ b/libguile/struct.h @@ -53,6 +53,7 @@ #define scm_struct_n_extra_words 3 /* These are how the initial words of a vtable are allocated. */ +#define scm_struct_i_setter -8 /* Setter */ #define scm_struct_i_proc -7 /* Optional procedure slots */ #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? */ @@ -65,6 +66,8 @@ #define scm_vtable_offset_user 4 /* Where do user fields start? */ #define SCM_STRUCTF_ENTITY (1L << 30) /* Indicates presence of proc slots */ +#define SCM_STRUCTF_LIGHT (1L << 31) /* Light representation + (no hidden words) */ #define SCM_STRUCTP(X) (SCM_TYP3(X) == scm_tc3_cons_gloc) #define SCM_STRUCT_DATA(X) ((SCM*)(SCM_CDR(X))) |