From 9a8bd2678654a78e4f06155a45fadaf714996edd Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 28 Jan 2010 20:56:10 -0600
Subject: [PATCH] Remove an iota from images.jpeg
---
basis/images/jpeg/jpeg.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/basis/images/jpeg/jpeg.factor b/basis/images/jpeg/jpeg.factor
index a7f08504bb..db30faee33 100644
--- 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 ;