From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 30 May 2010 23:26:47 +0000 (-0700)
Subject: Fix fencepost error.
X-Git-Tag: 20100708-Gtk~47
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b36e3dfed4ef298c2d1880751ba1cfa76336be7b;p=mit-scheme.git

Fix fencepost error.
---

diff --git a/src/runtime/chrset.scm b/src/runtime/chrset.scm
index 5ab46139c..5ae794a3d 100644
--- a/src/runtime/chrset.scm
+++ b/src/runtime/chrset.scm
@@ -258,7 +258,7 @@ USA.
       (let ((high (%char-set-high char-set)))
 	(let loop ((lower 0) (upper (vector-length high)))
 	  (if (fix:< lower upper)
-	      (let ((i (fix:quotient (fix:+ lower upper) 2)))
+	      (let ((i (fix:* 2 (fix:quotient (fix:+ lower upper) 4))))
 		(cond ((fix:< value (vector-ref high i))
 		       (loop lower i))
 		      ((fix:>= value (vector-ref high (fix:+ i 1)))