mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-10 15:56:18 +00:00
Code Issues Releases Activity

(Fsafe_length): Use conservative upper bound.

Browse Source
This commit is contained in:
Karl Heuer 1995-07-20 20:26:06 +00:00
parent a7f38d28b2
commit cb3d1a0a4b
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/fns.c
View File

@ -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;