mes: Add char-whitespace?

* module/srfi/srfi-14.mes (char-whitespace?): New function.

diff --git a/module/srfi/srfi-14.mes b/module/srfi/srfi-14.mes
index f2488a5a51dbe0e886e6c8d8b025853891470962..babbb68cc83cfe031973db8eaafb7511b35fbd2f 100644 (file)
--- a/module/srfi/srfi-14.mes
+++ b/module/srfi/srfi-14.mes
@@ -49,3 +49,6 @@
 
 (define (char-set-contains? cs x)
   (and (memq x cs) #t))
+
+(define (char-whitespace? c)
+  (char-set-contains? char-set:whitespace c))