steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/images/jpeg/jpeg.factor
View File

@ -287,7 +287,7 @@ MEMO: dct-matrix-blas ( -- m ) dct-matrix >float-blas-matrix ;
: decode-macroblock ( -- blocks ) : decode-macroblock ( -- blocks )
jpeg> components>> jpeg> components>>
[ [
[ mb-dim first2 * iota ] [ mb-dim first2 * ]
[ [ decode-block ] curry replicate ] bi [ [ decode-block ] curry replicate ] bi
] map concat ; ] map concat ;