kc3-lang/kc3

diff --git a/libc3/integer.c b/libc3/integer.c
index 922266a..2785681 100644
--- a/libc3/integer.c
+++ b/libc3/integer.c
@@ -182,16 +182,6 @@ s_integer * integer_copy (const s_integer *a, s_integer *dest)
   return dest;
 }
 
-s_integer * integer_init_copy (s_integer *i, const s_integer *a)
-{
-  sw r;
-  assert(a);
-  assert(i);
-  if ((r = mp_init_copy(&i->mp_int, &a->mp_int)) != MP_OKAY)
-    errx(1, "integer_init_copy: %s", mp_error_to_string(r));
-  return i;
-}
-
 s_integer * integer_div (const s_integer *a, const s_integer *b,
                          s_integer *dest)
 {
@@ -237,6 +227,16 @@ s_integer * integer_init_1 (s_integer *i, const s8 *p)
   return i;
 }
 
+s_integer * integer_init_copy (s_integer *i, const s_integer *a)
+{
+  sw r;
+  assert(a);
+  assert(i);
+  if ((r = mp_init_copy(&i->mp_int, &a->mp_int)) != MP_OKAY)
+    errx(1, "integer_init_copy: %s", mp_error_to_string(r));
+  return i;
+}
+
 s_integer * integer_init_f64 (s_integer *a, f64 x)
 {
   assert(a);