factor: trim using lists

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

diff --git a/extra/benchmark/fib4/fib4.factor b/extra/benchmark/fib4/fib4.factor
index fa49503797be993608ee5981de72145f4dde6009..2822304d82cc28ad490fe41c6ac679f140c6d439 100644 (file)
--- a/extra/benchmark/fib4/fib4.factor
+++ b/extra/benchmark/fib4/fib4.factor
@@ -1,4 +1,4 @@
-USING: accessors math kernel debugger ;
+USING: accessors math kernel ;
 IN: benchmark.fib4
 
 TUPLE: box { i read-only } ;
@@ -17,6 +17,6 @@ C: <box> box
         swap i>> swap i>> + <box>
     ] if ; inline recursive
 
-: fib-main ( -- ) T{ box f 34 } tuple-fib i>> 9227465 assert= ;
+: fib4-benchmark ( -- ) T{ box f 34 } tuple-fib i>> 9227465 assert= ;
 
-MAIN: fib-main
+MAIN: fib4-benchmark