summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/conv-integer.i.c2
-rw-r--r--libguile/conv-uinteger.i.c2
2 files changed, 2 insertions, 2 deletions
diff --git a/libguile/conv-integer.i.c b/libguile/conv-integer.i.c
index 4cf887cb6..a5362d39c 100644
--- a/libguile/conv-integer.i.c
+++ b/libguile/conv-integer.i.c
@@ -117,7 +117,7 @@ SCM_FROM_TYPE_PROTO (TYPE val)
return scm_i_long2big (val);
else
{
- SCM z = scm_double_cell (scm_tc16_big, 0, 0, 0);
+ SCM z = make_bignum ();
mpz_init (SCM_I_BIG_MPZ (z));
if (val < 0)
{
diff --git a/libguile/conv-uinteger.i.c b/libguile/conv-uinteger.i.c
index d6b969c20..f62dc41ad 100644
--- a/libguile/conv-uinteger.i.c
+++ b/libguile/conv-uinteger.i.c
@@ -104,7 +104,7 @@ SCM_FROM_TYPE_PROTO (TYPE val)
return scm_i_ulong2big (val);
else
{
- SCM z = scm_double_cell (scm_tc16_big, 0, 0, 0);
+ SCM z = make_bignum ();
mpz_init (SCM_I_BIG_MPZ (z));
mpz_import (SCM_I_BIG_MPZ (z), 1, 1, sizeof (TYPE), 0, 0, &val);
return z;