From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 20 Jul 1995 20:26:06 +0000 (+0000)
Subject: (Fsafe_length): Use conservative upper bound.
X-Git-Tag: emacs-19.34~3241
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cb3d1a0a4ba9f729afdc1bcac4a9ac23a7e8e780;p=emacs.git

(Fsafe_length): Use conservative upper bound.
---

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;