diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-08-01 06:44:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-08-01 06:44:48 +0000 |
| commit | eec4c3ca05a1b713a116486e90143a8cf0ad7c78 (patch) | |
| tree | 855680d4b41c4fafbe3c5ef1862b429e0c4d6d9f /lisp/emacs-lisp | |
| parent | 7da0e9b4eb4f1daeaf624dd34c089cb36333e58b (diff) | |
| download | emacs-eec4c3ca05a1b713a116486e90143a8cf0ad7c78.tar.gz emacs-eec4c3ca05a1b713a116486e90143a8cf0ad7c78.tar.bz2 emacs-eec4c3ca05a1b713a116486e90143a8cf0ad7c78.zip | |
(byte-optimize-nthcdr): Fix previous change.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 46d812299f7..9d69a2fc75e 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -1041,7 +1041,7 @@ (byte-optimize-predicate form) (let ((count (nth 1 form))) (setq form (nth 2 form)) - (while (> (setq count (1- count)) 0) + (while (>= (setq count (1- count)) 0) (setq form (list 'cdr form))) form))) |