Mercurial > octave-nkf

diff scripts/audio/wavread.m @ 7151:aeeb646f6538
[project @ 2007-11-09 19:34:17 by jwe]
author: jwe
date: Fri, 09 Nov 2007 19:35:52 +0000
parents: 373c39904877
children: da8e4aa06134
--- a/scripts/audio/wavread.m	Fri Nov 09 18:48:42 2007 +0000
+++ b/scripts/audio/wavread.m	Fri Nov 09 19:35:52 2007 +0000
@@ -115,7 +115,7 @@
       fclose (fid);
       error ("wavread: file contains no data chunk");
     endif
-  end
+  endwhile
 
   ## data chunk size
   ck_size = fread (fid, 1, "uint32", 0, BYTEORDER);
@@ -190,7 +190,8 @@
     yi = reshape (yi, 3, rows(yi)/3)';
     yi(yi(:,3) >= 128, 3) -= 256;
     yi = yi * [1; 256; 65536];
-  end
+  endif
+
   if (format_tag == FORMAT_PCM)
     ## normalize samples
     switch (bits_per_sample)