summaryrefslogtreecommitdiff
path: root/libguile/vectors.h
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-02-08 10:48:01 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-02-08 10:48:01 +0000
commite382fdbe0f4c540dd70e6e77ccbf9368d7cea2e4 (patch)
treeea0328573eec9bea13c1c5268c758b373b5d8e8a /libguile/vectors.h
parentbf8f0922803b0885853ab0a4cebdd6f90d1a4daa (diff)
downloadguile-e382fdbe0f4c540dd70e6e77ccbf9368d7cea2e4.tar.gz
* Fixed parameter checking for make-vector.
Diffstat (limited to 'libguile/vectors.h')
-rw-r--r--libguile/vectors.h1
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/vectors.h b/libguile/vectors.h
index f8449a714..d479d1b80 100644
--- a/libguile/vectors.h
+++ b/libguile/vectors.h
@@ -54,6 +54,7 @@
#define SCM_VECTORP(x) (SCM_NIMP (x) && (SCM_TYP7S (x) == scm_tc7_vector))
#define SCM_VECTOR_BASE(x) ((scm_bits_t *) SCM_CELL_WORD_1 (x))
#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)))