factor: trim using lists

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

diff --git a/extra/benchmark/gc3/gc3.factor b/extra/benchmark/gc3/gc3.factor
index cb8e3ee72a0cea4efe497b0e99a525f19beaa61f..ce9f638b238dfda63d396d0585df46f4403ce972 100644 (file)
--- a/extra/benchmark/gc3/gc3.factor
+++ b/extra/benchmark/gc3/gc3.factor
@@ -1,11 +1,11 @@
 ! Copyright (C) 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: math.parser fry sequences kernel assocs hashtables ;
+USING: math.parser sequences kernel assocs hashtables ;
 IN: benchmark.gc3
 
-: gc3 ( -- )
-    1000000 iota
+: gc3-benchmark ( -- )
+    1000000 <iota>
     1000000 <hashtable>
     '[ [ number>string ] keep _ set-at ] each ;
 
-MAIN: gc3
+MAIN: gc3-benchmark