diff options
-rw-r--r-- | libguile/ChangeLog | 7 | ||||
-rw-r--r-- | libguile/num2integral.i.c | 7 |
2 files changed, 11 insertions, 3 deletions
diff --git a/libguile/ChangeLog b/libguile/ChangeLog index 6b77b5552..c134cb600 100644 --- 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 460d98447..a25ece17b 100644 --- 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), |