(Fsafe_length): Use conservative upper bound.

1 files changed, 1 insertions, 4 deletions

diff --git a/src/fns.c b/src/fns.c
index 5ba7d4a5c4a..287187d5a85 100644
--- 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;