summaryrefslogtreecommitdiff
path: root/libguile/numbers.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/numbers.c')
-rw-r--r--libguile/numbers.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/numbers.c b/libguile/numbers.c
index bdb6f4ca3..98c045b78 100644
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -1390,7 +1390,7 @@ scm_i_mkbig (size_t nlen, int sign)
base = scm_gc_malloc (nlen * sizeof (SCM_BIGDIG), s_bignum);
- v = scm_alloc_cell (SCM_MAKE_BIGNUM_TAG (nlen, sign), (scm_t_bits) base);
+ v = scm_cell (SCM_MAKE_BIGNUM_TAG (nlen, sign), (scm_t_bits) base);
return v;
}
@@ -2827,7 +2827,7 @@ SCM
scm_make_real (double x)
{
SCM z;
- z = scm_alloc_double_cell (scm_tc16_real, 0, 0, 0);
+ z = scm_double_cell (scm_tc16_real, 0, 0, 0);
SCM_REAL_VALUE (z) = x;
return z;
}