Re: Generators (iterators) for Gnu Emacs

[Michael Heerdegen]

Stefan Monnier <address@hidden> writes:

> > Yes, that had been the intention. To make it work with dynamic callers,
> > I would have to defvar the uninterned symbol.
>
> Not only that, you'd have to build the lambda at run-time (i.e. make
> the closures "by hand").

Would this version fix the issue?

--8<---------------cut here---------------start------------->8---
(defmacro gen-make (&rest body)
  `(gen-make-1 (lambda () ,@body)))

(defun gen-make-1 (fun)
  (let (this-element)
    (lambda ()
      (if (eq this-element 'gen-done)
          'gen-done
        (setq this-element (funcall fun))))))
--8<---------------cut here---------------end--------------->8---

Though, this `gen-make' is still inferior without lexical binding, but
at least should avoid the error.

Michael.