* discouraged.h, discouraged.c: New files.

[bpt/guile.git] / libguile / conv-integer.i.c

diff --git a/libguile/conv-integer.i.c b/libguile/conv-integer.i.c
index 16ec234..82b8101 100644 (file)
--- 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);