summaryrefslogtreecommitdiff
path: root/libguile/num2integral.i.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2003-04-06 08:51:02 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2003-04-06 08:51:02 +0000
commit938f6b7c811b0b245d8d85062f68eddd11b4f170 (patch)
treeb575076e7a655910ae87c8bd0c623091da217820 /libguile/num2integral.i.c
parente3be7ddda5a7910d6e9b409db50703bfc35eb56a (diff)
downloadguile-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.c7
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),