From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 1 Aug 1995 06:44:48 +0000 (+0000)
Subject: (byte-optimize-nthcdr): Fix previous change.
X-Git-Tag: emacs-19.34~3123
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eec4c3ca05a1b713a116486e90143a8cf0ad7c78;p=emacs.git

(byte-optimize-nthcdr): Fix previous change.
---

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)))