[Emacs-diffs] master 7ecda8a: * lisp/emacs-lisp/seq.el (seq-doseq): Fix the macro.

[Nicolas Petton]

branch: master
commit 7ecda8a22194462114f42225e6d64aaae23c5f6d
Author: Nicolas Petton <address@hidden>
Commit: Nicolas Petton <address@hidden>

    * lisp/emacs-lisp/seq.el (seq-doseq): Fix the macro.
---
 lisp/emacs-lisp/seq.el |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/seq.el b/lisp/emacs-lisp/seq.el
index b8647ec..0050ff0 100644
--- a/lisp/emacs-lisp/seq.el
+++ b/lisp/emacs-lisp/seq.el
@@ -50,12 +50,12 @@ Evaluate BODY with VAR bound to each element of SEQ, in 
turn.
 
 \(fn (VAR SEQ) BODY...)"
   (declare (indent 1) (debug ((symbolp form &optional form) body)))
-  (let ((is-list (make-symbol "is-list"))
+  (let ((length (make-symbol "length"))
         (seq (make-symbol "seq"))
         (index (make-symbol "index")))
     `(let* ((,seq ,(cadr spec))
             (,length (if (listp ,seq) nil (seq-length ,seq)))
-            (,index (if ,is-list ,seq 0)))
+            (,index (if ,length 0 ,seq)))
        (while (if ,length
                   (< ,index ,length)
                 (consp ,index))