* num2integral.i.c (INTEGRAL2BIG): Put negation of n inside then

clause.

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 6b77b55..c134cb6 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,6 +1,11 @@
+2003-04-06  Mikael Djurfeldt  <djurfeldt@nada.kth.se>
+
+       * num2integral.i.c (INTEGRAL2BIG): Put negation of n inside then
+       clause.
+
 2003-04-05  Rob Browning  <rlb@defaultvalue.org>
 
-       * modules.c (s_scm_module_import_interface): move declaration of
+       * modules.c (scm_module_import_interface): move declaration of
        uses before any code.
 
 2003-04-05  Mikael Djurfeldt  <djurfeldt@nada.kth.se>

diff --git a/libguile/num2integral.i.c b/libguile/num2integral.i.c
index 460d984..a25ece1 100644 (file)
--- a/libguile/num2integral.i.c
+++ b/libguile/num2integral.i.c
@@ -195,8 +195,11 @@ INTEGRAL2BIG (ITYPE n)
       /* mpz_import doesn't handle sign -- have to use #if here rather
          than if b/c gcc warnings for ushort, etc. */
 #if !UNSIGNED
-      if (n < 0) neg_input = 1;
-      n = - n;
+      if (n < 0)
+       {
+         neg_input = 1;
+         n = - n;
+       }
 #endif
 
       mpz_import (SCM_I_BIG_MPZ (result),