artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mes: Add char-whitespace?

Browse source 
* 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))