From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 2 Jun 2013 22:31:19 +0000 (+0000)
Subject: Fix thinko in BITS.
X-Git-Tag: release-9.2.0~171
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9e449aac367298f69c76078d2449e7475f93a416;p=mit-scheme.git

Fix thinko in BITS.
---

diff --git a/src/runtime/integer-bits.scm b/src/runtime/integer-bits.scm
index e2e1ee45b..b88c54381 100644
--- a/src/runtime/integer-bits.scm
+++ b/src/runtime/integer-bits.scm
@@ -205,7 +205,7 @@ USA.
 
 (define (bits n m)
   (define (%bits n m)
-    (bit-mask (+ (- n m) 1) n))
+    (bit-mask (- (+ m 1) n) n))
   (if (<= n m)
       (%bits n m)
       (%bits m n)))