summaryrefslogtreecommitdiff
path: root/libguile/srfi-4.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-12-08 21:54:27 +0100
committerAndy Wingo <wingo@pobox.com>2009-12-08 23:13:20 +0100
commit00f8b368ca9690af45ff47bb7309061578cc6016 (patch)
tree46fa0cd9ffd004721f16bf400df0482e764cafcf /libguile/srfi-4.c
parent9e9e54eb19067f327c1ebc7ee847cac354b35979 (diff)
downloadguile-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.c6
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