diff options
| author | Paul Pogonyshev <pogonyshev@gmail.com> | 2017-11-03 15:49:51 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2017-11-03 15:49:51 +0200 |
| commit | 78e9065e9f090ea9c10f89495eab9f8069597b74 (patch) | |
| tree | 93d6a692260d7efe8c46083dc4038a88bd86f95f /lisp/emacs-lisp/generator.el | |
| parent | caa63cc96cfd2d21872eba17a474b4535178ad58 (diff) | |
| download | emacs-78e9065e9f090ea9c10f89495eab9f8069597b74.tar.gz emacs-78e9065e9f090ea9c10f89495eab9f8069597b74.tar.bz2 emacs-78e9065e9f090ea9c10f89495eab9f8069597b74.zip | |
* lisp/emacs-lisp/generator.el (iter-do): Add a debug declaration.
Diffstat (limited to 'lisp/emacs-lisp/generator.el')
| -rw-r--r-- | lisp/emacs-lisp/generator.el | 3 |
1 files changed, 2 insertions, 1 deletions
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")) |