andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

mes: Add reverse-list->string. 

* 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 (pred (car lst)) i
(loop (cdr lst) (1- i)))))))
(define reverse-list->string (compose list->string reverse))