diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-07-20 20:26:06 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-07-20 20:26:06 +0000 |
| commit | cb3d1a0a4ba9f729afdc1bcac4a9ac23a7e8e780 (patch) | |
| tree | cdd6cf289ad8857fa9e219b928ff716742860397 /src | |
| parent | a7f38d28b20318ba55da1334783bb77f4d143d4f (diff) | |
| download | emacs-cb3d1a0a4ba9f729afdc1bcac4a9ac23a7e8e780.tar.gz | |
(Fsafe_length): Use conservative upper bound.
Diffstat (limited to 'src')
| -rw-r--r-- | src/fns.c | 5 |
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; |