New functions: nested-vec-of and nested-vec.

* eval.c (eval_init): Register nestd-vec-of and nested-vec
intrinsics.

* lib.[ch] (vec_allocate, vec_own, vec_init): New static functions.
(vector, copy_vec): Expressed in terms of new functions.
(nested_vec_of_v, nested_vec_v): New functions.

* args.[ch] (args_cat_from): New function.

* tests/010/vec.tl: New tests.

* txr.1: Documented.

1 files changed, 9 insertions, 0 deletions

diff --git a/args.c b/args.c
index bfb76fd5..219c47e8 100644
--- a/args.c
+++ b/args.c
@@ -106,6 +106,15 @@ varg args_cat(varg to, varg from)
   return to;
 }
 
+varg args_cat_from(varg to, varg from, cnum index)
+{
+  size_t size = sizeof *from->arg * (from->fill - index);
+  to->list = from->list;
+  memcpy(to->arg + to->fill, from->arg + index, size);
+  to->fill += from->fill - index;
+  return to;
+}
+
 varg args_cat_zap(varg to, varg from)
 {
   size_t size = sizeof *from->arg * from->fill;