* lib.c (quicksort): Bugfix: incorrect loop from 0 rather than from

leading to unbounded recursion.

1 files changed, 1 insertions, 1 deletions

diff --git a/lib.c b/lib.c
index 6a23761b..cc5e7ed3 100644
--- a/lib.c
+++ b/lib.c
@@ -3710,7 +3710,7 @@ static void quicksort(val vec, val lessfun, val keyfun, cnum from, cnum to)
 
     swap(vec, num_fast(pivot), num_fast(to - 1));
 
-    for (j = 0, i = 0; i < to; i++)
+    for (j = from, i = from; i < to - 1; i++)
       if (funcall2(lessfun, funcall1(keyfun, ref(vec, num_fast(i))), pkval))
         swap(vec, num_fast(i), num_fast(j++));