Remove an iota from images.jpeg

release
Doug Coleman 2010-01-28 20:56:10 -06:00
parent 88e20af800
commit 9a8bd26786
1 changed files with 1 additions and 1 deletions

View File

@ -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 ;