[CM] play-pats

[First Last]

Would appreciate any help...

When attempting to run the following code from Notes from the Metalevel's
dictionary:

CM> (define (play-pats pats trope reps rate)
  (process with dur = (* rate 2.5)
           repeat reps
           for len = (pick 8 12 16)
           for pat = (make-instance (next pats)
                                    :keynums trope
                                    :for len)
           each k in (next pat #t) as x from 0 by rate
           output (new midi :time (+ (now) x)
                       :keynum k
                       :duration dur)
           wait (* rate len)))

;;; a pattern of pattern class names
(define pcns
  (new weighting :of '((heap :weight 2) line cycle
                    palindrome rotation)))

, I receive the following error:

LOOP ERROR: 'each' does not support initializations.
clause context: 'EACH K IN (NEXT PAT T)'

Anyone?
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20070624/32d67e63/attachment.html>