andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

mes: Add char-whitespace? 

* module/srfi/srfi-14.mes (char-whitespace?): New function.
This commit is contained in:
Jan Nieuwenhuizen 2018-04-15 08:04:09 +02:00
parent 0d0c7a415b
commit d052876f85
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
module/srfi/srfi-14.mes
View 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))