basis: use lint.vocabs tool to trim using lists

[factor.git] / basis / images / images.factor

diff --git a/basis/images/images.factor b/basis/images/images.factor
index a8439e5113aca3eb251c8bac17b221395fc9ed47..4c392b84d1415ff3b8e270f9e030f153627b0bee 100644 (file)
--- a/basis/images/images.factor
+++ b/basis/images/images.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2009 Doug Coleman, Daniel Ehrenberg.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors combinators kernel locals math sequences ;
+USING: accessors combinators kernel math sequences ;
 IN: images
 
 SINGLETONS:
@@ -171,7 +171,7 @@ PRIVATE>
 :: each-pixel ( ... image quot: ( ... x y pixel -- ... ) -- ... )
     image dim>> first2 :> ( width height )
     image bytes-per-pixel :> n
-    height width [ iota ] bi@ [| y x |
+    height width [ <iota> ] bi@ [| y x |
         y width * x + :> start
         start n * :> from
         from n + :> to