procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* 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
Show stats 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. "Loop over values from an iterator.
Evaluate BODY with VAR bound to each value from ITERATOR. Evaluate BODY with VAR bound to each value from ITERATOR.
Return the value with which ITERATOR finished iteration." 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")) (let ((done-symbol (cps--gensym "iter-do-iterator-done"))
(condition-symbol (cps--gensym "iter-do-condition")) (condition-symbol (cps--gensym "iter-do-condition"))
(it-symbol (cps--gensym "iter-do-iterator")) (it-symbol (cps--gensym "iter-do-iterator"))