linuxaudio.org

Here's my entry in this contest:
(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))))))
In the Scheme community this code would be

considered heavily commented.
_______________________________________________

Linux-audio-user mailing list

Linux-audio-user@lists.linuxaudio.org

http://lists.linuxaudio.org/listinfo/linux-audio-user