diff options
author | Andy Wingo <wingo@pobox.com> | 2009-12-08 21:54:27 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-12-08 23:13:20 +0100 |
commit | 00f8b368ca9690af45ff47bb7309061578cc6016 (patch) | |
tree | 46fa0cd9ffd004721f16bf400df0482e764cafcf /libguile/srfi-4.c | |
parent | 9e9e54eb19067f327c1ebc7ee847cac354b35979 (diff) | |
download | guile-00f8b368ca9690af45ff47bb7309061578cc6016.tar.gz |
SCM_CELL in srfi-4.c
* libguile/srfi-4.c (SCM_UVEC_TYPE, SCM_UVEC_LENGTH, SCM_UVEC_BASE): Fix
SCM_CELL macro usage.
Diffstat (limited to 'libguile/srfi-4.c')
-rw-r--r-- | libguile/srfi-4.c | 6 |
1 files 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 |