diff options
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 fef91cfa5..3e8708472 100644 --- a/libguile/vectors.h +++ b/libguile/vectors.h @@ -52,6 +52,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_VELTS(x) ((SCM *) SCM_CELL_WORD_1 (x)) #define SCM_VELTS_AS_STACKITEMS(x) ((SCM_STACKITEM *) SCM_CELL_WORD_1 (x)) #define SCM_SETVELTS(x,v) (SCM_SET_CELL_WORD_1 ((x), (v))) |