mes: Add last.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 17 Dec 2017 12:32:17 +0000 (13:32 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 17 Dec 2017 12:32:17 +0000 (13:32 +0100)
* module/srfi/srfi-1.mes (last): New funcion.

module/srfi/srfi-1.mes

index ea6fab4e3ba0b8a501c992b4bae0b432bfe1402a..b4fb0067b9a695f21d3cc5fbce24320588d3658f 100644 (file)
                       (cadr rest))))
         (srfi-1:iota n start step))))
 
+(define last (compose car last-pair))
+
 (include-from-path "srfi/srfi-1.scm")