From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 24 Sep 2009 07:14:20 +0000 (-0700)
Subject: Fix thinko in previous change.
X-Git-Tag: 20100708-Gtk~316^2~3
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b7e6c5e707986fc614e2bd7b4d667b5c529b1929;p=mit-scheme.git

Fix thinko in previous change.
---

diff --git a/src/microcode/bignum.c b/src/microcode/bignum.c
index ad8e3e052..26b5b7c9b 100644
--- a/src/microcode/bignum.c
+++ b/src/microcode/bignum.c
@@ -742,13 +742,13 @@ bignum_fits_in_word_p (bignum_type bignum, long word_length,
   unsigned int n_bits;
 
   if (twos_complement_p)
+    n_bits = (word_length - 1);
+  else
     {
       if (BIGNUM_NEGATIVE_P (bignum))
 	return (0);
-      n_bits = (word_length - 1);
+      n_bits = word_length;
     }
-  else
-    n_bits = word_length;
 
   BIGNUM_ASSERT (n_bits > 0);
   {