]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/emacs-lisp/seq.el (seq-doseq): Fix the macro.
authorNicolas Petton <nicolas@petton.fr>
Fri, 24 Apr 2015 21:12:50 +0000 (23:12 +0200)
committerNicolas Petton <nicolas@petton.fr>
Fri, 24 Apr 2015 21:12:50 +0000 (23:12 +0200)
lisp/emacs-lisp/seq.el

index b8647ec93ecf92cb04eb57f1fec9d4d26e1a70bf..0050ff0a30348989b7ec296b01542054d3da7ef3 100644 (file)
@@ -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))