summaryrefslogtreecommitdiff
path: root/libguile/struct.h
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1999-03-11 11:47:58 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1999-03-11 11:47:58 +0000
commit7ee70a2659521d18bfc366e7235b507c389a06c1 (patch)
tree1536ae200ea337032e408ac27e06ec4b3a590624 /libguile/struct.h
parent25c9482661943d5ae2d5d2563ee174202e2a0bf2 (diff)
downloadguile-7ee70a2659521d18bfc366e7235b507c389a06c1.tar.gz
* struct.h (scm_struct_i_setter): New constant.
Diffstat (limited to 'libguile/struct.h')
-rw-r--r--libguile/struct.h3
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)))