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;