diff options
Diffstat (limited to 'libguile/numbers.c')
-rw-r--r-- | libguile/numbers.c | 4 |
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; } |