mes: Add char-whitespace?
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 15 Apr 2018 06:04:09 +0000 (08:04 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 15 Apr 2018 06:04:09 +0000 (08:04 +0200)
* module/srfi/srfi-14.mes (char-whitespace?): New function.

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))