Fix thinko in BITS.

diff --git a/src/runtime/integer-bits.scm b/src/runtime/integer-bits.scm
index e2e1ee45b593e3980e989a0e3b31be341c9f1fbb..b88c54381a296e7942e371c81e4ac8c69a8dc8f1 100644 (file)
--- 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)))