martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Paul Pogonyshev
2017-11-03 15:49:51 +02:00
committed by Eli Zaretskii
parent caa63cc96c
commit 78e9065e9f
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/emacs-lisp/generator.el
View File

@@ -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"))