summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2001-11-25 15:18:18 +0000
committerMarius Vollmer <mvo@zagadka.de>2001-11-25 15:18:18 +0000
commitd3c0e81cc847b39537a2b2945d80de18bf8d5e89 (patch)
treeaab2dfcae32c702b37c40471fec302ed72b92fc9
parent0b2f15c3ab447f222438ace7df40da31f350876f (diff)
downloadguile-d3c0e81cc847b39537a2b2945d80de18bf8d5e89.tar.gz
(SCM_MAKE_VECTOR_TAG): New.
-rw-r--r--libguile/vectors.h3
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))