summaryrefslogtreecommitdiff
path: root/libguile/convert.i.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/convert.i.c')
-rw-r--r--libguile/convert.i.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/libguile/convert.i.c b/libguile/convert.i.c
index 45a3ea443..258062232 100644
--- a/libguile/convert.i.c
+++ b/libguile/convert.i.c
@@ -245,17 +245,17 @@ SCM
CTYPES2SCM (const CTYPE *data, long n)
{
long i;
- SCM v, *velts;
-
+ SCM v;
+
SCM_ASSERT_RANGE (SCM_ARG2, scm_long2num (n),
n > 0 && n <= SCM_VECTOR_MAX_LENGTH);
v = scm_c_make_vector (n, SCM_UNSPECIFIED);
- velts = SCM_VELTS (v);
+
for (i = 0; i < n; i++)
#ifdef FLOATTYPE
- velts[i] = scm_make_real ((double) data[i]);
+ SCM_VECTOR_SET (v, i, scm_make_real ((double) data[i]));
#else
- velts[i] = SCM_MAKINUM (data[i]);
+ SCM_VECTOR_SET (v, i, SCM_MAKINUM (data[i]));
#endif
return v;
}