Remove an iota from images.jpeg

2010-01-28 20:56:10 -06:00 · 2010-01-28 20:56:10 -06:00 · 9a8bd26786
parent 88e20af800
commit 9a8bd26786
1 changed files with 1 additions and 1 deletions
--- a/basis/images/jpeg/jpeg.factor
+++ b/basis/images/jpeg/jpeg.factor
@ -287,7 +287,7 @@ MEMO: dct-matrix-blas ( -- m ) dct-matrix >float-blas-matrix ;
 : decode-macroblock ( -- blocks )
    jpeg> components>>
    [
-        [ mb-dim first2 * iota ]
+        [ mb-dim first2 * ]
        [ [ decode-block ] curry replicate ] bi
    ] map concat ;