(Fsafe_length): Use conservative upper bound.

diff --git a/src/fns.c b/src/fns.c
index 5ba7d4a5c4ac757842d8d6424effa2f8c577a078..287187d5a8530051060fa84c43ec97a5d4aa814a 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -147,10 +147,7 @@ which is at least the number of distinct elements.")
   for (tail = list; CONSP (tail); tail = XCONS (tail)->cdr)
     {
       if (EQ (tail, halftail) && len != 0)
-       {
-         len /= 2;
-         break;
-       }
+       break;
       len++;
       if (len & 1 == 0)
        halftail = XCONS (halftail)->cdr;