Avoid byte compiler warning for subr.el

* lisp/subr.el (number-sequence): Simplify to avoid byte compiler warning.

diff --git a/lisp/subr.el b/lisp/subr.el
index 9fd3366f8a6ade0dd2827adf6215f45112cd38b4..f1a4e8bb292422ac7b6197c8ce59cb66b794dd70 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -679,12 +679,11 @@ of course, also replace TO with a slightly larger value
       (list from)
     (or inc (setq inc 1))
     (when (zerop inc) (error "The increment can not be zero"))
-    (let (seq (n 0) (next from) (last from))
+    (let (seq (n 0) (next from))
       (if (> inc 0)
           (while (<= next to)
             (setq seq (cons next seq)
                   n (1+ n)
-                  last next
                   next (+ from (* n inc))))
         (while (>= next to)
           (setq seq (cons next seq)