factor: trim using lists

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

diff --git a/extra/benchmark/empty-loop-0/empty-loop-0.factor b/extra/benchmark/empty-loop-0/empty-loop-0.factor
index 65390e84f247da170641a4161efb43fedcd34c22..292a4978365e80ed578ab3689d74bbbe3f9b4c18 100644 (file)
--- a/extra/benchmark/empty-loop-0/empty-loop-0.factor
+++ b/extra/benchmark/empty-loop-0/empty-loop-0.factor
@@ -1,10 +1,10 @@
-USING: math math.private kernel sequences ;
+USING: math.private kernel ;
 IN: benchmark.empty-loop-0
 
 : empty-loop-0 ( n -- )
     dup 0 fixnum< [ drop ] [ 1 fixnum-fast empty-loop-0 ] if ;
 
-: empty-loop-main ( -- )
-    5000000 empty-loop-0 ;
+: empty-loop-0-benchmark ( -- )
+    50000000 empty-loop-0 ;
 
-MAIN: empty-loop-main
+MAIN: empty-loop-0-benchmark