diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-02-08 10:48:01 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-02-08 10:48:01 +0000 |
commit | e382fdbe0f4c540dd70e6e77ccbf9368d7cea2e4 (patch) | |
tree | ea0328573eec9bea13c1c5268c758b373b5d8e8a /libguile/vectors.h | |
parent | bf8f0922803b0885853ab0a4cebdd6f90d1a4daa (diff) | |
download | guile-e382fdbe0f4c540dd70e6e77ccbf9368d7cea2e4.tar.gz |
* Fixed parameter checking for make-vector.
Diffstat (limited to 'libguile/vectors.h')
-rw-r--r-- | libguile/vectors.h | 1 |
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))) |