From 00f8b368ca9690af45ff47bb7309061578cc6016 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 8 Dec 2009 21:54:27 +0100 Subject: [PATCH] SCM_CELL in srfi-4.c * libguile/srfi-4.c (SCM_UVEC_TYPE, SCM_UVEC_LENGTH, SCM_UVEC_BASE): Fix SCM_CELL macro usage. --- libguile/srfi-4.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/libguile/srfi-4.c b/libguile/srfi-4.c index b24799104..3849776cd 100644 --- a/libguile/srfi-4.c +++ b/libguile/srfi-4.c @@ -65,9 +65,9 @@ int scm_tc16_uvec = 0; - The vector's length (counted in elements). - The address of the data area (holding the elements of the vector). */ -#define SCM_UVEC_TYPE(u) (SCM_CELL_WORD_1(u)) -#define SCM_UVEC_LENGTH(u) ((size_t)SCM_CELL_WORD_2(u)) -#define SCM_UVEC_BASE(u) ((void *)SCM_CELL_WORD_3(u)) +#define SCM_UVEC_TYPE(u) (SCM_SMOB_DATA_1(u)) +#define SCM_UVEC_LENGTH(u) ((size_t)SCM_SMOB_DATA_2(u)) +#define SCM_UVEC_BASE(u) ((void *)SCM_SMOB_DATA_3(u)) /* Symbolic constants encoding the various types of uniform