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
old mode 100755 (executable)
new mode 100644 (file)
index 03d1585..f5d8b24
--- 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