From b36e3dfed4ef298c2d1880751ba1cfa76336be7b Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 30 May 2010 16:26:47 -0700 Subject: [PATCH] Fix fencepost error. --- src/runtime/chrset.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))) -- 2.25.1