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 /libguile/num2integral.i.c | |
parent | e3be7ddda5a7910d6e9b409db50703bfc35eb56a (diff) | |
download | guile-938f6b7c811b0b245d8d85062f68eddd11b4f170.tar.gz |
* num2integral.i.c (INTEGRAL2BIG): Put negation of n inside then
clause.
Diffstat (limited to 'libguile/num2integral.i.c')
-rw-r--r-- | libguile/num2integral.i.c | 7 |
1 files changed, 5 insertions, 2 deletions
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), |