mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki 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
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;