mes: Support Nyacc 0.85.3: Add char-set-copy.

* mes/module/srfi/srfi-14.mes (char-set-copy): New function>
2018-09-05 20:28:06 +02:00 · 2018-09-05 20:28:06 +02:00 · d7f5af4a61
parent 738c009456
commit d7f5af4a61
1 changed files with 3 additions and 0 deletions
--- a/mes/module/srfi/srfi-14.mes
+++ b/mes/module/srfi/srfi-14.mes
@ -52,3 +52,6 @@

 (define (char-whitespace? c)
  (char-set-contains? char-set:whitespace c))
+
+(define (char-set-copy cs)
+  (map identity cs))