factor: trim using lists

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

diff --git a/extra/benchmark/crc32/crc32.factor b/extra/benchmark/crc32/crc32.factor
index 03d1585574bc5b23165c313d181d8a03547177f6..f5d8b242bf5c6d4c38a6b0db8bcb1006d669e135 100644 (file)
--- a/extra/benchmark/crc32/crc32.factor
+++ b/extra/benchmark/crc32/crc32.factor
@@ -1,10 +1,10 @@
-USING: checksums checksums.crc32 io.encodings.ascii io.files kernel math ;
+USING: checksums checksums.crc32 kernel math ;
 IN: benchmark.crc32
 
-: crc32-file ( -- )
-    10 [
+: crc32-benchmark ( -- )
+    1,000 [
         "vocab:mime/multipart/multipart-tests.factor"
         crc32 checksum-file drop
     ] times ;
 
-MAIN: crc32-file
+MAIN: crc32-benchmark