mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 13:49:17 +02:00
17 lines
396 B
Scheme
17 lines
396 B
Scheme
|
|
;; Simple ASCII definitions, need to make Unicode aware.
|
|
|
|
(define char-foldcase char-downcase)
|
|
|
|
(define (numeric-digit ch)
|
|
(let ((n (- (char->integer ch) (char->integer #\0))))
|
|
(and (<= 0 n 9) n)))
|
|
|
|
(define (string-upcase str)
|
|
(string-map char-upcase str))
|
|
|
|
(define (string-downcase str)
|
|
(string-map char-downcase str))
|
|
|
|
(define (string-foldcase str)
|
|
(string-map char-foldcase str))
|