* combi.c (rperm_gen_full): Update ptail with return value

of list_collect. This is not necessary for correctness, but it spares
list_collect from having to search for the tail on each call.

1 files changed, 1 insertions, 1 deletions

diff --git a/combi.c b/combi.c
index e32957a4..68664b5c 100644
--- a/combi.c
+++ b/combi.c
@@ -244,7 +244,7 @@ static val rperm_gen_fun(val env)
   cnum len = c_num(length_vec(vec));
 
   for (i = 0; i < len; i++)
-    list_collect(ptail, car(vec->v.vec[i]));
+    ptail = list_collect(ptail, car(vec->v.vec[i]));
 
   for (i = len-1; i >= 0; i--) {
     pop(&vec->v.vec[i]);