From 7ecda8a22194462114f42225e6d64aaae23c5f6d Mon Sep 17 00:00:00 2001 From: Nicolas Petton Date: Fri, 24 Apr 2015 23:12:50 +0200 Subject: [PATCH] * lisp/emacs-lisp/seq.el (seq-doseq): Fix the macro. --- lisp/emacs-lisp/seq.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/seq.el b/lisp/emacs-lisp/seq.el index b8647ec93ec..0050ff0a303 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)) -- 2.39.2