Commit 78e9065e authored by Paul Pogonyshev's avatar Paul Pogonyshev Committed by Eli Zaretskii

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

parent caa63cc9
......@@ -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"))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment