conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fixed bugs in char-ci-*? procedures in the 3+ args case. E.g., 

(char-ci<=? #\a #\r #\z)
This commit is contained in:
Abdulaziz Ghuloum 2008-10-18 13:19:01 -04:00
parent bbafcc08d2
commit 69d573a54f
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
scheme/ikarus.unicode-data.ss
View File

@ -164,7 +164,7 @@
(or (char? x) (die 'char-ci=? "not a char" x))]
[(x . x*)
(if (char? x)
(char-ci-loop x x* char=? 'char-ci=?)
(char-ci-loop ($fold x) x* = 'char-ci=?)
(die 'char-ci=? "not a char" x))]))
(define char-ci<?
@ -180,7 +180,7 @@
(or (char? x) (die 'char-ci<? "not a char" x))]
[(x . x*)
(if (char? x)
(char-ci-loop x x* char<? 'char-ci<?)
(char-ci-loop ($fold x) x* < 'char-ci<?)
(die 'char-ci<? "not a char" x))]))
(define char-ci<=?
@ -196,7 +196,7 @@
(or (char? x) (die 'char-ci<=? "not a char" x))]
[(x . x*)
(if (char? x)
(char-ci-loop x x* char<=? 'char-ci<=?)
(char-ci-loop ($fold x) x* <= 'char-ci<=?)
(die 'char-ci<=? "not a char" x))]))
(define char-ci>?
@ -212,7 +212,7 @@
(or (char? x) (die 'char-ci>? "not a char" x))]
[(x . x*)
(if (char? x)
(char-ci-loop x x* char>? 'char-ci>?)
(char-ci-loop ($fold x) x* > 'char-ci>?)
(die 'char-ci>? "not a char" x))]))
(define char-ci>=?
@ -228,7 +228,7 @@
(or (char? x) (die 'char-ci>=? "not a char" x))]
[(x . x*)
(if (char? x)
(char-ci-loop x x* char>=? 'char-ci>=?)
(char-ci-loop ($fold x) x* >= 'char-ci>=?)
(die 'char-ci>=? "not a char" x))]))
(define ($string-change-case str adjustment-vector)

2
scheme/last-revision
View File

@ -1 +1 @@
1631
1632