still working on getWordsLossless...
authorPHO <pho@cielonegro.org>
Fri, 15 Jul 2011 18:20:50 +0000 (03:20 +0900)
committerPHO <pho@cielonegro.org>
Fri, 15 Jul 2011 18:20:50 +0000 (03:20 +0900)
Codec/Audio/WavPack/Words.hs

index ae61d8a6e8e097e88f37d8a77ff4448ba2faf8ec..92282ccc420518db3464368323de4a573e4baec8 100644 (file)
@@ -162,7 +162,7 @@ getWordsLossless isMono w0 bs0 nSamples0
       go2 0 w bs n v
           = let ent  = getEntropy n w
                 low  = 0
-                high = getMedian0 ent
+                high = getMedian0 ent - 1
                 ent' = decMedian0 ent
                 w'   = setEntropy ent' n w
             in