last function becomes generic.

* lib.c (last): Handle non-list sequences via sub function.

* txr.1: Updated description of last.

1 files changed, 6 insertions, 3 deletions

diff --git a/lib.c b/lib.c
index 0dc1b543..d658f356 100644
--- a/lib.c
+++ b/lib.c
@@ -559,10 +559,13 @@ loc lastcons(val list)
   return ret;
 }
 
-val last(val list)
+val last(val seq)
 {
-  loc p = lastcons(list);
-  return nullocp(p) ? list : deref(p);
+  if (listp(seq)) {
+    loc p = lastcons(seq);
+    return nullocp(p) ? seq : deref(p);
+  }
+  return sub(seq, negone, t);
 }
 
 val nthcdr(val pos, val list)