diff options
Diffstat (limited to 'libguile/conv-integer.i.c')
-rw-r--r-- | libguile/conv-integer.i.c | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/libguile/conv-integer.i.c b/libguile/conv-integer.i.c index 16ec2348b..82b81012d 100644 --- a/libguile/conv-integer.i.c +++ b/libguile/conv-integer.i.c @@ -112,11 +112,7 @@ SCM_FROM_TYPE_PROTO (TYPE val) if (SCM_FIXABLE (val)) return SCM_I_MAKINUM (val); else if (val >= LONG_MIN && val <= LONG_MAX) - { - SCM z = scm_double_cell (scm_tc16_big, 0, 0, 0); - mpz_init_set_si (SCM_I_BIG_MPZ (z), val); - return z; - } + return scm_i_long2big (val); else { SCM z = scm_double_cell (scm_tc16_big, 0, 0, 0); |