diff options
author | Marius Vollmer <mvo@zagadka.de> | 2001-11-25 15:18:18 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2001-11-25 15:18:18 +0000 |
commit | d3c0e81cc847b39537a2b2945d80de18bf8d5e89 (patch) | |
tree | aab2dfcae32c702b37c40471fec302ed72b92fc9 | |
parent | 0b2f15c3ab447f222438ace7df40da31f350876f (diff) | |
download | guile-d3c0e81cc847b39537a2b2945d80de18bf8d5e89.tar.gz |
(SCM_MAKE_VECTOR_TAG): New.
-rw-r--r-- | libguile/vectors.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/vectors.h b/libguile/vectors.h index 746a7686a..4d37b37a2 100644 --- a/libguile/vectors.h +++ b/libguile/vectors.h @@ -55,7 +55,8 @@ #define SCM_SET_VECTOR_BASE(v, b) (SCM_SET_CELL_WORD_1 ((v), (b))) #define SCM_VECTOR_MAX_LENGTH ((1L << 24) - 1) #define SCM_VECTOR_LENGTH(x) (((unsigned long) SCM_CELL_WORD_0 (x)) >> 8) -#define SCM_SET_VECTOR_LENGTH(v, l, t) (SCM_SET_CELL_WORD_0 ((v), ((l) << 8) + (t))) +#define SCM_MAKE_VECTOR_TAG(l,t) (((l) << 8) + (t)) +#define SCM_SET_VECTOR_LENGTH(v, l, t) (SCM_SET_CELL_WORD_0 ((v), SCM_MAKE_VECTOR_TAG(l,t))) #define SCM_VELTS(x) ((SCM *) SCM_CELL_WORD_1 (x)) #define SCM_VELTS_AS_STACKITEMS(x) ((SCM_STACKITEM *) SCM_CELL_WORD_1 (x)) |