shuffle/nshuffle: eliminate wasteful vector copy.

* lib.c (nshuffle): When shuffling the vector that was
converted from the list, use nshuffle rather shuffle, because
it's a temporary, non-shared object we can mutate.

1 files changed, 1 insertions, 1 deletions

diff --git a/lib.c b/lib.c
index c4150b60..b3873c95 100644
--- a/lib.c
+++ b/lib.c
@@ -9663,7 +9663,7 @@ val nshuffle(val seq)
   case SEQ_LISTLIKE:
     if (cdr(seq))
     {
-      val v = shuffle(vec_list(seq));
+      val v = nshuffle(vec_list(seq), randstate);
       val i, l;
 
       for (l = seq, i = zero; l; i = succ(i), l = cdr(l))