mes: Add char-whitespace?
[mes.git] / module / srfi / srfi-14.mes
index f2488a5a51dbe0e886e6c8d8b025853891470962..babbb68cc83cfe031973db8eaafb7511b35fbd2f 100644 (file)
@@ -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))