From d052876f856bc948fac915cf58eb150776acf07f Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sun, 15 Apr 2018 08:04:09 +0200
Subject: [PATCH] mes: Add char-whitespace?

* module/srfi/srfi-14.mes (char-whitespace?): New function.
---
 module/srfi/srfi-14.mes | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/module/srfi/srfi-14.mes b/module/srfi/srfi-14.mes
index f2488a5a..babbb68c 100644
--- 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))