factor: trim using lists

[factor.git] / extra / benchmark / fib1 / fib1.factor

diff --git a/extra/benchmark/fib1/fib1.factor b/extra/benchmark/fib1/fib1.factor
index ad7fb0e7e13620a3f90087e2431d8ff515b9c3e8..06d4ba73e590c35c9b4e01af99e93612f3a4615e 100644 (file)
--- a/extra/benchmark/fib1/fib1.factor
+++ b/extra/benchmark/fib1/fib1.factor
@@ -1,4 +1,4 @@
-USING: math.private kernel debugger ;
+USING: math.private kernel ;
 IN: benchmark.fib1
 
 : fast-fixnum-fib ( m -- n )
@@ -9,6 +9,6 @@ IN: benchmark.fib1
         swap 1 fixnum-fast fast-fixnum-fib fixnum+fast
     ] if ;
 
-: fib-main 34 fast-fixnum-fib 9227465 assert= ;
+: fib1-benchmark ( -- ) 34 fast-fixnum-fib 9227465 assert= ;
 
-MAIN: fib-main
+MAIN: fib1-benchmark