Thanks, Ric. > BUT i think you really want: > > (define p7 (make-cycle `(300 320 340 ,(make-cycle '(200 220 240 > 240) :for 1)))) > => (300 320 340 200 300 320 340 220 300 320 340 240 300 320 340 240 > 300 320 340 200)
Yes - thats the one. Unfortunately that example doesn't work on my Grace 3.6.0 [svn 1875] S7 Scheme 1.51., on MS-Win. (define p5p (make-cycle '(120 130 140 150 ,(make-cycle '(1 2 3) :for 1)))) p5p (next p5p) => 120 130 150 170 (unquote (make-cycle (quote (1 2 3) :for 1)) 120 130 150 170 (unquote (make-cycle (quote (1 2 3) :for 1)) 120 130 etc . . _______________________________________________ Cmdist mailing list [email protected] http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist
