From: Paul Pogonyshev <pogonyshev@gmail.com>
Date: Fri, 3 Nov 2017 13:49:51 +0000 (+0200)
Subject: * lisp/emacs-lisp/generator.el (iter-do): Add a debug declaration.
X-Git-Tag: emacs-26.0.91~400
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=78e9065e9f090ea9c10f89495eab9f8069597b74;p=emacs.git

* lisp/emacs-lisp/generator.el (iter-do): Add a debug declaration.
---

diff --git a/lisp/emacs-lisp/generator.el b/lisp/emacs-lisp/generator.el
index 410e4edcc92..ef6cfba420c 100644
--- a/lisp/emacs-lisp/generator.el
+++ b/lisp/emacs-lisp/generator.el
@@ -718,7 +718,8 @@ is blocked."
   "Loop over values from an iterator.
 Evaluate BODY with VAR bound to each value from ITERATOR.
 Return the value with which ITERATOR finished iteration."
-  (declare (indent 1))
+  (declare (indent 1)
+           (debug ((symbolp form) body)))
   (let ((done-symbol (cps--gensym "iter-do-iterator-done"))
         (condition-symbol (cps--gensym "iter-do-condition"))
         (it-symbol (cps--gensym "iter-do-iterator"))