1390 |
|
|
1391 |
base = scm_gc_malloc (nlen * sizeof (SCM_BIGDIG), s_bignum); |
base = scm_gc_malloc (nlen * sizeof (SCM_BIGDIG), s_bignum); |
1392 |
|
|
1393 |
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); |
1394 |
return v; |
return v; |
1395 |
} |
} |
1396 |
|
|
2827 |
scm_make_real (double x) |
scm_make_real (double x) |
2828 |
{ |
{ |
2829 |
SCM z; |
SCM z; |
2830 |
z = scm_alloc_double_cell (scm_tc16_real, 0, 0, 0); |
z = scm_double_cell (scm_tc16_real, 0, 0, 0); |
2831 |
SCM_REAL_VALUE (z) = x; |
SCM_REAL_VALUE (z) = x; |
2832 |
return z; |
return z; |
2833 |
} |
} |