factor: trim using lists

[factor.git] / extra / benchmark / mandel / colors / colors.factor

diff --git a/extra/benchmark/mandel/colors/colors.factor b/extra/benchmark/mandel/colors/colors.factor
index 87a2df6fe545b05a4335ec05e82482efaf63790c..8a1d17dd67b722c4a1d25a781f78512be5ee40e7 100644 (file)
--- a/extra/benchmark/mandel/colors/colors.factor
+++ b/extra/benchmark/mandel/colors/colors.factor
@@ -1,5 +1,5 @@
-USING: math math.order kernel arrays byte-arrays sequences
-colors.hsv accessors colors fry benchmark.mandel.params ;
+USING: math math.order kernel byte-arrays sequences
+colors.hsv accessors colors benchmark.mandel.params ;
 IN: benchmark.mandel.colors
 
 : scale ( x -- y ) 255 * >fixnum ; inline
@@ -11,7 +11,7 @@ CONSTANT: sat 0.85
 CONSTANT: val 0.85
 
 : <color-map> ( nb-cols -- map )
-    [ iota ] keep '[
+    [ <iota> ] keep '[
         360 * _ 1 + / sat val
         1 <hsva> >rgba scale-rgb
     ] map ;