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.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/convert.i.c b/libguile/convert.i.c
index 80a0c30ff..0d78711c7 100644
--- a/libguile/convert.i.c
+++ b/libguile/convert.i.c
@@ -197,7 +197,7 @@ CTYPES2UVECT (const CTYPE *data, long n)
n > 0 && n <= SCM_UVECTOR_MAX_LENGTH);
v = scm_gc_malloc (n * sizeof (CTYPE), "uvect");
memcpy (v, data, n * sizeof (CTYPE));
- return scm_alloc_cell (SCM_MAKE_UVECTOR_TAG (n, UVECTTYPE), (scm_t_bits) v);
+ return scm_cell (SCM_MAKE_UVECTOR_TAG (n, UVECTTYPE), (scm_t_bits) v);
}
#undef FUNC_NAME
@@ -212,8 +212,8 @@ CTYPES2UVECT_OPTIONAL (const unsigned CTYPE *data, long n)
n > 0 && n <= SCM_UVECTOR_MAX_LENGTH);
v = scm_gc_malloc (n * sizeof (unsigned CTYPE) * n, "uvect");
memcpy (v, data, n * sizeof (unsigned CTYPE));
- return scm_alloc_cell (SCM_MAKE_UVECTOR_TAG (n, UVECTTYPE_OPTIONAL),
- (scm_t_bits) v);
+ return scm_cell (SCM_MAKE_UVECTOR_TAG (n, UVECTTYPE_OPTIONAL),
+ (scm_t_bits) v);
}
#undef FUNC_NAME
#endif /* UVECTTYPE_OPTIONAL */