Bugfix: destructive behavior in transpose.

* lib.c (transpose): This function turns an input list
into an argument list which ends up in an args structure,
which potentially destroys it to prevent spurious retention.
The list must be copied. We don't use copy-list because
the function supports vectors.

1 files changed, 1 insertions, 1 deletions

diff --git a/lib.c b/lib.c
index 39686e3d..26f3cd9e 100644
--- a/lib.c
+++ b/lib.c
@@ -5377,7 +5377,7 @@ val transposev(struct args *list)
 
 val transpose(val list)
 {
-  args_decl_list(args, ARGS_MIN, list);
+  args_decl_list(args, ARGS_MIN, copy(list));
   return make_like(transposev(args), list);
 }