1 files changed, 10 insertions, 0 deletions
diff --git a/args.c b/args.c
index 7c62baee..9377d357 100644
--- a/args.c
+++ b/args.c
@@ -97,6 +97,16 @@ struct args *args_cat_zap(struct args *to, struct args *from)
   return to;
 }
 
+struct args *args_cat_zap_from(struct args *to, struct args *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;
+  memset(from->arg, 0, size);
+  return to;
+}
+
 val args_copy_to_list(struct args *args)
 {
   list_collect_decl (out, ptail);