mes: Add char-set:digit, char-set:lower-case, char-set:upper-case.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 11 Nov 2018 09:09:41 +0000 (10:09 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 11 Nov 2018 09:09:41 +0000 (10:09 +0100)
* mes/module/srfi/srfi-14.mes (char-set:digit, char-set:lower-case,
char-set:upper-case): New variable.

mes/module/srfi/srfi-14.mes

index d903f73cba1bb643d15e635ed2bebc53d2269139..a0a96b924cb2e3e7d7e7c7620a7e4bc2122a200c 100644 (file)
        (equal? a b)))
 
 (define char-set:whitespace (char-set #\tab #\page #\return #\vtab #\newline #\space))
+(define char-set:digit (apply char-set
+                                   (map integer->char
+                                        (map (lambda (i)
+                                               (+ i (char->integer #\0))) (iota 10)))))
+
+(define char-set:lower-case (apply char-set
+                                   (map integer->char
+                                        (map (lambda (i)
+                                               (+ i (char->integer #\a))) (iota 26)))))
+
+(define char-set:upper-case (apply char-set
+                                   (map integer->char
+                                        (map (lambda (i)
+                                               (+ i (char->integer #\A))) (iota 26)))))
 
 (define (list->char-set lst)
   (apply char-set lst))