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 ec424e8..f5d8b24
--- a/extra/benchmark/crc32/crc32.factor
+++ b/extra/benchmark/crc32/crc32.factor
@@ -1,10 +1,10 @@
-USING: io.crc32 io.encodings.ascii io.files kernel math ;
+USING: checksums checksums.crc32 kernel math ;
 IN: benchmark.crc32
 
-: crc32-primes-list ( -- )
-    10 [
-        "extra/math/primes/list/list.factor" resource-path
-        ascii file-contents crc32 drop
+: crc32-benchmark ( -- )
+    1,000 [
+        "vocab:mime/multipart/multipart-tests.factor"
+        crc32 checksum-file drop
     ] times ;
 
-MAIN: crc32-primes-list
+MAIN: crc32-benchmark