From 9e449aac367298f69c76078d2449e7475f93a416 Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 2 Jun 2013 22:31:19 +0000
Subject: [PATCH] Fix thinko in BITS.

---
 src/runtime/integer-bits.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)))
-- 
2.25.1