[CM] error with loop?

[Stefaan Himpe]

In scheme syntax, the following example from the documentation doesn't seem
to work:
(both in cm 3.9.0 and cm 3.9.1)

(loop with chord = (transpose (pick '(0 3 7)
                                    '(0 4 7)
                                    '(0 3 7 10)
                                    '(0 4 7 10)
                                    '(0 4 7 11))
                              (between 48 80))
      for k in chord
      do (mp:midi :key k))
I get an error:

>>> Error: chord: unbound variable
(let ((chord #f) (k #f) ({v}-405 chord)) (set!...
(let ((chord #f) (k #f) ({v}-405 chord)) (set!...

The equivalent example in sal2 syntax works just fine.

Perhaps a problem with the "loop" implementation?
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://ccrma-mail.stanford.edu/mailman/private/cmdist/attachments/20150608/05c308a3/attachment.html