From 0761f6479e7c728355a75ab2a321ee93aac70ad6 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Sun, 11 Nov 2018 10:09:41 +0100 Subject: [PATCH] mes: Add char-set:digit, char-set:lower-case, char-set:upper-case. * 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 | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/mes/module/srfi/srfi-14.mes b/mes/module/srfi/srfi-14.mes index d903f73c..a0a96b92 100644 --- a/mes/module/srfi/srfi-14.mes +++ b/mes/module/srfi/srfi-14.mes @@ -36,6 +36,20 @@ (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))