From eec4c3ca05a1b713a116486e90143a8cf0ad7c78 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 1 Aug 1995 06:44:48 +0000 Subject: [PATCH] (byte-optimize-nthcdr): Fix previous change. --- lisp/emacs-lisp/byte-opt.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))) -- 2.39.2