factor: trim using lists

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

diff --git a/basis/images/processing/processing.factor b/basis/images/processing/processing.factor
index 4d33f4c26021a26a89da311a342cdfe177028001..8710cca2f49a6ee35c34868e9715e495359d1113 100644 (file)
--- a/basis/images/processing/processing.factor
+++ b/basis/images/processing/processing.factor
@@ -1,12 +1,11 @@
 ! Copyright (C) 2009 Marc Fauconneau.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays byte-arrays combinators grouping images
-kernel locals math math.order
-math.ranges math.vectors sequences sequences.deep fry ;
+USING: accessors arrays byte-arrays images kernel math
+math.order math.vectors sequences sequences.deep ;
 IN: images.processing
 
 : coord-matrix ( dim -- m )
-    [ iota ] map first2 cartesian-product ;
+    [ <iota> ] map first2 cartesian-product ;
 
 : map^2 ( m quot -- m' ) '[ _ map ] map ; inline
 : each^2 ( m quot -- m' ) '[ _ each ] each ; inline