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

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

diff --git a/libguile/conv-uinteger.i.c b/libguile/conv-uinteger.i.c
index 7f1e0dc..0917b9b 100644 (file)
--- a/libguile/conv-uinteger.i.c
+++ b/libguile/conv-uinteger.i.c
@@ -96,11 +96,7 @@ SCM_FROM_TYPE_PROTO (TYPE val)
   if (SCM_POSFIXABLE (val))
     return SCM_I_MAKINUM (val);
   else if (val <= ULONG_MAX)
-    {
-      SCM z = scm_double_cell (scm_tc16_big, 0, 0, 0);
-      mpz_init_set_ui (SCM_I_BIG_MPZ (z), val);
-      return z;
-    }
+    return scm_i_ulong2big (val);
   else
     {
       SCM z = scm_double_cell (scm_tc16_big, 0, 0, 0);