[CM] cycle in weighting question

[Achim Bornhoeft]

Hello,
maybe somebody can explain this to me:
Why in this case the lists are always completely cycled before a new  
weighting is applied?

(define (pat1 reps weight1 weight2)
     (let ((c (new weighting :of `((,(new cycle :of '(-1  
1)) :weight ,weight1)
				  (,(new cycle :of '(-2 4 -2)) :weight ,weight2 :max 1)))))
       (loop repeat reps collect (next c))))

;; (pat1 50 90 10)

Thanks,
Achim