factor: trim using lists

[factor.git] / extra / benchmark / hash-sets / hash-sets.factor

diff --git a/extra/benchmark/hash-sets/hash-sets.factor b/extra/benchmark/hash-sets/hash-sets.factor
index cef4f996220ab7c0fa31f6c529934ebdb0054b25..9223967d646f169de64d25ebaaabc0473422ae1b 100644 (file)
--- a/extra/benchmark/hash-sets/hash-sets.factor
+++ b/extra/benchmark/hash-sets/hash-sets.factor
@@ -1,12 +1,12 @@
 
-USING: combinators fry hash-sets kernel literals
+USING: combinators hash-sets kernel literals
 math math.combinatorics sequences sets ;
 
 IN: benchmark.hash-sets
 
 CONSTANT: test-sets $[
     { 10 100 1,000 10,000 50,000 100,000 }
-    [ iota >hash-set ] map dup append
+    [ <iota> >hash-set ] map dup append
 ]
 
 : do-times ( n quot: ( set1 set2 -- set' ) -- )