diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2003-04-06 08:51:02 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2003-04-06 08:51:02 +0000 |
commit | 938f6b7c811b0b245d8d85062f68eddd11b4f170 (patch) | |
tree | b575076e7a655910ae87c8bd0c623091da217820 | |
parent | e3be7ddda5a7910d6e9b409db50703bfc35eb56a (diff) | |
download | guile-938f6b7c811b0b245d8d85062f68eddd11b4f170.tar.gz |
* num2integral.i.c (INTEGRAL2BIG): Put negation of n inside then
clause.
-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), |