18 lines
629 B
Scheme
18 lines
629 B
Scheme
(define (char-cmp? cmp a b)
|
|
(cmp (char->integer a) (char->integer b)))
|
|
|
|
(define (char-ci-cmp? cmp a b)
|
|
(cmp (char->integer (char-downcase a)) (char->integer (char-downcase b))))
|
|
|
|
(define (char=? a b) (char-cmp? = a b))
|
|
(define (char<? a b) (char-cmp? < a b))
|
|
(define (char>? a b) (char-cmp? > a b))
|
|
(define (char<=? a b) (char-cmp? <= a b))
|
|
(define (char>=? a b) (char-cmp? >= a b))
|
|
|
|
(define (char-ci=? a b) (char-ci-cmp? = a b))
|
|
(define (char-ci<? a b) (char-ci-cmp? < a b))
|
|
(define (char-ci>? a b) (char-ci-cmp? > a b))
|
|
(define (char-ci<=? a b) (char-ci-cmp? <= a b))
|
|
(define (char-ci>=? a b) (char-ci-cmp? >= a b))
|