Fix over-zealous assertions

* src/sort.c (gallop_left, gallop_right): Don't test Lisp values for
being nonzero; it only made sense when `key` was a pointer that had to
be non-null.

diff --git a/src/sort.c b/src/sort.c
index 24469ef99dceb45bc3b31248c16b350a8007c5c8..3f7a2909ad7979d7d0006359e930918074fddf4f 100644 (file)
--- a/src/sort.c
+++ b/src/sort.c
@@ -223,7 +223,7 @@ gallop_left (merge_state *ms, const Lisp_Object key, Lisp_Object *a,
 {
   Lisp_Object pred = ms->predicate;
 
-  eassume (key && a && n > 0 && hint >= 0 && hint < n);
+  eassume (a && n > 0 && hint >= 0 && hint < n);
 
   a += hint;
   ptrdiff_t lastofs = 0;
@@ -306,7 +306,7 @@ gallop_right (merge_state *ms, const Lisp_Object key, Lisp_Object *a,
 {
   Lisp_Object pred = ms->predicate;
 
-  eassume (key && a && n > 0 && hint >= 0 && hint < n);
+  eassume (a && n > 0 && hint >= 0 && hint < n);
 
   a += hint;
   ptrdiff_t lastofs = 0;