From cb3d1a0a4ba9f729afdc1bcac4a9ac23a7e8e780 Mon Sep 17 00:00:00 2001
From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 20 Jul 1995 20:26:06 +0000
Subject: [PATCH] (Fsafe_length): Use conservative upper bound.

---
 src/fns.c | 5 +----
 1 file changed, 1 insertion(+), 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;
-- 
2.39.2