Bill Schottstaedt:
> (call-with-output-file "test.ascii" (lambda (p)
> (let ((r (make-readin "filename.wav")))
> (do () ((= (mus-location r) (mus-length r)))
> (format p "~A~%" (r))))))
Can't get my head around 'do'. Prefer this:
(call-with-output-file "test.ascii" (lambda (p)
(let ((r (make-readin "filename.wav")))
(while (< (mus-location r) (mus-length r))
(format p "~A~%" (r))))))
_______________________________________________
Linux-audio-user mailing list
Linux-audio-user@email-addr-hidden
http://lists.linuxaudio.org/listinfo/linux-audio-user
Received on Thu Jan 17 20:15:01 2013
This archive was generated by hypermail 2.1.8 : Thu Jan 17 2013 - 20:15:01 EET