diff options
| author | Paul Pogonyshev | 2017-11-03 15:49:51 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2017-11-03 15:49:51 +0200 |
| commit | 78e9065e9f090ea9c10f89495eab9f8069597b74 (patch) | |
| tree | 93d6a692260d7efe8c46083dc4038a88bd86f95f | |
| parent | caa63cc96cfd2d21872eba17a474b4535178ad58 (diff) | |
| download | emacs-78e9065e9f090ea9c10f89495eab9f8069597b74.tar.gz emacs-78e9065e9f090ea9c10f89495eab9f8069597b74.zip | |
* lisp/emacs-lisp/generator.el (iter-do): Add a debug declaration.
| -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." | |||
| 718 | "Loop over values from an iterator. | 718 | "Loop over values from an iterator. |
| 719 | Evaluate BODY with VAR bound to each value from ITERATOR. | 719 | Evaluate BODY with VAR bound to each value from ITERATOR. |
| 720 | Return the value with which ITERATOR finished iteration." | 720 | Return the value with which ITERATOR finished iteration." |
| 721 | (declare (indent 1)) | 721 | (declare (indent 1) |
| 722 | (debug ((symbolp form) body))) | ||
| 722 | (let ((done-symbol (cps--gensym "iter-do-iterator-done")) | 723 | (let ((done-symbol (cps--gensym "iter-do-iterator-done")) |
| 723 | (condition-symbol (cps--gensym "iter-do-condition")) | 724 | (condition-symbol (cps--gensym "iter-do-condition")) |
| 724 | (it-symbol (cps--gensym "iter-do-iterator")) | 725 | (it-symbol (cps--gensym "iter-do-iterator")) |