Error using iterators: cps-internal-yield

["Elias Mårtenson" <lokedhs@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 626 bytes --]

I was trying out the new iterator feature, and managed to write a small
test program that gives an error. I presume there is a problem with how the
macro interacts with cl-labels.

Here's the test code:

(iter-defun bar ()
  (cl-labels ((foo ()
                (iter-yield 'a)
                (iter-yield 'b)
                (iter-yield 'c)
                (iter-yield 'd)))
    (foo)
    (foo)))

(let ((x (bar)))
  (loop repeat 8
        collect (iter-next x)))

When run, it gives the following error:

*** Eval error ***  Symbol’s function definition is void: cps-internal-yield

Regards,
Elias

[-- Attachment #2: Type: text/html, Size: 945 bytes --]