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@lists.linuxaudio.org
http://lists.linuxaudio.org/listinfo/linux-audio-user