Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Patch from Lorenzo for char-upcase/downcase on odd numbered chars next to a special case.

Browse source
This commit is contained in:
Alex Shinn 2012-09-02 15:06:04 +09:00
parent df71fe8ecf
commit 4ad27c0179
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/scheme/char/full.scm
View file

@ -13,7 +13,7 @@
(let lp ((lo 0) (hi (vector-length char-downcase-map))) (let lp ((lo 0) (hi (vector-length char-downcase-map)))
(if (> lo hi) (if (> lo hi)
ch ch
(let* ((mid (+ lo (quotient (- hi lo) 2))) (let* ((mid (+ lo (* (quotient (- hi lo) 4) 2)))
(m (vector-ref char-downcase-map mid))) (m (vector-ref char-downcase-map mid)))
(cond (cond
((= n m) ((= n m)
@ -36,7 +36,7 @@
(let lp ((lo 0) (hi (vector-length char-upcase-map))) (let lp ((lo 0) (hi (vector-length char-upcase-map)))
(if (> lo hi) (if (> lo hi)
ch ch
(let* ((mid (+ lo (quotient (- hi lo) 2))) (let* ((mid (+ lo (* (quotient (- hi lo) 4) 2)))
(m (vector-ref char-upcase-map mid))) (m (vector-ref char-upcase-map mid)))
(cond (cond
((= n m) ((= n m)