]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/benchmark/linked-assocs/linked-assocs.factor
core: Rename iota to <iota> so we can have TUPLE: iota ... ; instead of TUPLE: iota...
[factor.git] / extra / benchmark / linked-assocs / linked-assocs.factor
index 4e4a38cf1437d951db3769d37c468d976bd35158..e91d87301e6f8980dc0e72df60526131b0de5dc6 100644 (file)
@@ -4,7 +4,7 @@ sequences ;
 IN: benchmark.linked-assocs
 
 : (linked-assocs-benchmark) ( -- )
-    10,000 iota <linked-hash> {
+    10,000 <iota> <linked-hash> {
         [ '[ 0 swap _ set-at ] each ]
         [ '[ _ at ] map-sum 0 assert= ]
         [ '[ dup _ set-at ] each ]