[CM] cm 3.6.0 betas available

Adam ahcnz at ihug.co.nz
Mon Apr 19 20:44:32 PDT 2010


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 . . 




More information about the Cmdist mailing list