mes: Add last.

* module/srfi/srfi-1.mes (last): New funcion.
2017-12-17 13:32:17 +01:00 · 2017-12-17 13:32:17 +01:00 · 761ea8b23f
parent fc0e0a732f
commit 761ea8b23f
1 changed files with 2 additions and 0 deletions
--- a/module/srfi/srfi-1.mes
+++ b/module/srfi/srfi-1.mes
@ -100,4 +100,6 @@
                      (cadr rest))))
        (srfi-1:iota n start step))))

+(define last (compose car last-pair))
+
 (include-from-path "srfi/srfi-1.scm")