# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 807259488 0
# Node ID 7b804de922435abd1244b6d0fadb3312875c64d0
# Parent  a7253dcf5f9d75aadf64512c303fe2630bae33d5
(byte-optimize-nthcdr): Fix previous change.

diff -r a7253dcf5f9d -r 7b804de92243 lisp/emacs-lisp/byte-opt.el
--- a/lisp/emacs-lisp/byte-opt.el	Mon Jul 31 23:13:54 1995 +0000
+++ b/lisp/emacs-lisp/byte-opt.el	Tue Aug 01 06:44:48 1995 +0000
@@ -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)))