17 Jan
2013
17 Jan
'13
4:24 p.m.
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))))))