From 29c560674bae3189b61b9c6836e0ea0e6615cf11 Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Wed, 18 Feb 2004 00:25:39 +0000
Subject: [PATCH] (INTEGRAL2BIG): WORDS_BIGENDIAN not right for word order
 parameter to mpz_import, in fact with just one word there's no order to worry
 about at all.

---
 libguile/num2integral.i.c | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

diff --git a/libguile/num2integral.i.c b/libguile/num2integral.i.c
index 31dd81fed..85cd4b10b 100644
--- a/libguile/num2integral.i.c
+++ b/libguile/num2integral.i.c
@@ -204,15 +204,11 @@ INTEGRAL2BIG (ITYPE n)
 #endif
 
       mpz_import (SCM_I_BIG_MPZ (result),
-                  1,
-#ifdef WORDS_BIGENDIAN
-                  1,
-#else
-                  -1,
-#endif
-                  SIZEOF_ITYPE,
-                  0,
-                  0,
+                  1,            /* one word */
+                  1,            /* word order irrelevant when just one word */
+                  SIZEOF_ITYPE, /* word size */
+                  0,            /* native endianness within word */
+                  0,            /* no nails */
                   &n);
 
       /* mpz_import doesn't handle sign */