From 40c6256eb7b74cadefe65f23cb6b79336e5b06c1 Mon Sep 17 00:00:00 2001 From: Paul Pogonyshev Date: Sat, 28 Oct 2017 13:01:51 +0200 Subject: [PATCH] Add missing debug declaration to `iter-do' --- lisp/emacs-lisp/generator.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/generator.el b/lisp/emacs-lisp/generator.el index 410e4edcc9..ef6cfba420 100644 --- a/lisp/emacs-lisp/generator.el +++ b/lisp/emacs-lisp/generator.el @@ -718,7 +718,8 @@ iter-close "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")) -- 2.14.2