From 4ad27c0179f4a65a276d25b3bfe84462a6cf5f36 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sun, 2 Sep 2012 15:06:04 +0900 Subject: [PATCH] Patch from Lorenzo for char-upcase/downcase on odd numbered chars next to a special case. --- lib/scheme/char/full.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/scheme/char/full.scm b/lib/scheme/char/full.scm index f9caac5c..c62da9a9 100644 --- a/lib/scheme/char/full.scm +++ b/lib/scheme/char/full.scm @@ -13,7 +13,7 @@ (let lp ((lo 0) (hi (vector-length char-downcase-map))) (if (> lo hi) ch - (let* ((mid (+ lo (quotient (- hi lo) 2))) + (let* ((mid (+ lo (* (quotient (- hi lo) 4) 2))) (m (vector-ref char-downcase-map mid))) (cond ((= n m) @@ -36,7 +36,7 @@ (let lp ((lo 0) (hi (vector-length char-upcase-map))) (if (> lo hi) ch - (let* ((mid (+ lo (quotient (- hi lo) 2))) + (let* ((mid (+ lo (* (quotient (- hi lo) 4) 2))) (m (vector-ref char-upcase-map mid))) (cond ((= n m)