mes: Support Nyacc 0.85.3: Add char-set-copy.
authorJan Nieuwenhuizen <janneke@gnu.org>
Wed, 5 Sep 2018 18:28:06 +0000 (20:28 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Wed, 5 Sep 2018 18:28:06 +0000 (20:28 +0200)
* mes/module/srfi/srfi-14.mes (char-set-copy): New function>

mes/module/srfi/srfi-14.mes

index 0be39b1e4267f80c2ff4306f912d30e61fd9198f..a16d16ce57525fe905fa3072075250df598c76cb 100644 (file)
@@ -52,3 +52,6 @@
 
 (define (char-whitespace? c)
   (char-set-contains? char-set:whitespace c))
+
+(define (char-set-copy cs)
+  (map identity cs))