From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 21 Feb 1991 16:17:48 +0000 (+0000)
Subject: bignum_trim did not produce 0-length bignums even when there were no
X-Git-Tag: 20090517-FFI~10917
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2733d296db716b7903a641617c88f2e678df3337;p=mit-scheme.git

bignum_trim did not produce 0-length bignums even when there were no
bits set.
---

diff --git a/v7/src/microcode/bignum.c b/v7/src/microcode/bignum.c
index 46accd55e..fd02cf242 100644
--- a/v7/src/microcode/bignum.c
+++ b/v7/src/microcode/bignum.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/bignum.c,v 9.33 1990/12/29 22:00:54 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/bignum.c,v 9.34 1991/02/21 16:17:48 jinx Exp $
 
 Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 
@@ -1611,7 +1611,7 @@ bignum_trim (bignum)
   fast bignum_digit_type * start = (BIGNUM_START_PTR (bignum));
   fast bignum_digit_type * end = (start + (BIGNUM_LENGTH (bignum)));
   fast bignum_digit_type * scan = end;
-  while ((start < scan) && ((*--scan) == 0))
+  while ((start <= scan) && ((*--scan) == 0))
     ;
   scan += 1;
   if (scan < end)