mes: Add reverse-list->string.
authorJan Nieuwenhuizen <janneke@gnu.org>
Mon, 20 Nov 2017 05:49:27 +0000 (06:49 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Mon, 20 Nov 2017 05:49:27 +0000 (06:49 +0100)
* module/srfi/srfi-13.mes (reverse-list->string): New function.

module/srfi/srfi-13.mes

index 3eed1bce63cd61aa9f1622cf7013687f54605b6e..974844a335fac8e7816cff7ec41605dbd457e7a2 100644 (file)
@@ -85,3 +85,5 @@
       (if (null? lst) #f
           (if (pred (car lst)) i
               (loop (cdr lst) (1- i)))))))
+
+(define reverse-list->string (compose list->string reverse))