mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-18 21:29:19 +02:00
22 lines
726 B
Scheme
22 lines
726 B
Scheme
;; This code is written by Alex Shinn and placed in the
|
|
;; Public Domain. All warranties are disclaimed.
|
|
|
|
(define char-set:letter+digit
|
|
(immutable-char-set (char-set-union char-set:letter char-set:digit)))
|
|
|
|
(define char-set:hex-digit
|
|
(immutable-char-set
|
|
(char-set-union (string->char-set "0123456789abcdefABCDEF"))))
|
|
|
|
(define char-set:iso-control
|
|
(immutable-char-set
|
|
(char-set-union (ucs-range->char-set 0 #x20)
|
|
(ucs-range->char-set #x7F #xA0))))
|
|
|
|
(define char-set:graphic
|
|
(immutable-char-set
|
|
(char-set-union
|
|
char-set:letter char-set:digit char-set:punctuation char-set:symbol)))
|
|
|
|
(define char-set:printing
|
|
(immutable-char-set (char-set-union char-set:whitespace char-set:graphic)))
|