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

mes: Add reverse-list->string.

Browse source 
* module/srfi/srfi-13.mes (reverse-list->string): New function.
This commit is contained in:
Jan Nieuwenhuizen 2017-11-20 06:49:27 +01:00
parent efdae700b5
commit fc0e0a732f
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
module/srfi/srfi-13.mes
View file

@ -85,3 +85,5 @@
(if (null? lst) #f (if (null? lst) #f
(if (pred (car lst)) i (if (pred (car lst)) i
(loop (cdr lst) (1- i))))))) (loop (cdr lst) (1- i)))))))
(define reverse-list->string (compose list->string reverse))