factor: trim using lists

[factor.git] / extra / benchmark / empty-loop-2 / empty-loop-2.factor

diff --git a/extra/benchmark/empty-loop-2/empty-loop-2.factor b/extra/benchmark/empty-loop-2/empty-loop-2.factor
index a6541856a56a05ee9ab9fa4814280910ab5cae10..46e01ccdbaf6139d283f0c49fee0445046f123a9 100644 (file)
--- a/extra/benchmark/empty-loop-2/empty-loop-2.factor
+++ b/extra/benchmark/empty-loop-2/empty-loop-2.factor
@@ -1,10 +1,10 @@
-USING: math math.private kernel sequences ;
+USING: kernel sequences ;
 IN: benchmark.empty-loop-2
 
 : empty-loop-2 ( n -- )
-    iota [ drop ] each ;
+    <iota> [ drop ] each ;
 
-: empty-loop-main ( -- )
+: empty-loop-2-benchmark ( -- )
     50000000 empty-loop-2 ;
 
-MAIN: empty-loop-main
+MAIN: empty-loop-2-benchmark