* eval.c (dwim_loc): del operator's return value is the

deleted range of values. Missing del cases added for single
index cases.

* lib.c (quicksort): Fix pivot selection one more time.
(length): Fix bad argument in "not a sequence" error.

1 files changed, 2 insertions, 2 deletions

diff --git a/lib.c b/lib.c
index d405a991..db4b145e 100644
--- a/lib.c
+++ b/lib.c
@@ -3578,7 +3578,7 @@ static void swap(val vec, val i, val j)
 static void quicksort(val vec, val lessfun, val keyfun, cnum from, cnum to)
 {
   if (to - from >= 2) {
-    cnum pivot = to + (to - from) / 2;
+    cnum pivot = from + (to - from) / 2;
     cnum i, j;
     val pval = ref(vec, num_fast(pivot));
     val pkval = funcall1(keyfun, pval);
@@ -3673,7 +3673,7 @@ val length(val seq)
   case VEC:
     return length_vec(seq);
   default:
-    type_mismatch(lit("length: ~s is not a sequence"), cons, nao);
+    type_mismatch(lit("length: ~s is not a sequence"), seq, nao);
   }
 }