* arith.c (gcd, lognot): Bugfix: bignum results

in fixnum range not normalized.

2 files changed, 7 insertions, 2 deletions

diff --git a/ChangeLog b/ChangeLog
index 20896801..2aff9393 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2014-10-16  Kaz Kylheku  <kaz@kylheku.com>
 
+	* arith.c (gcd, lognot): Bugfix: bignum results
+	in fixnum range not normalized.
+
+2014-10-16  Kaz Kylheku  <kaz@kylheku.com>
+
 	* match.c (dest_bind): More detailed log message for variable
 	mismatch.
 
diff --git a/arith.c b/arith.c
index d107afbb..76066d63 100644
--- a/arith.c
+++ b/arith.c
@@ -1389,7 +1389,7 @@ val gcd(val anum, val bnum)
   if (mp_gcd(mp(anum), mp(bnum), mp(n)) != MP_OKAY)
     goto bad;
 
-  return n;
+  return normalize(n);
 inval:
   uw_throwf(error_s, lit("gcd: non-integral operands ~s ~s"),
             anum, bnum, nao);
@@ -1753,7 +1753,7 @@ val lognot(val a, val bits)
     b = make_bignum();
     if (mp_comp(mp(a), mp(b)) != MP_OKAY)
       goto bad;
-    return b;
+    return normalize(b);
   default:
     uw_throwf(error_s, lit("lognot: non-integral operand ~s"), a, nao);
   }