core, basis, extra: Remove DOS line endings from files.

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

diff --git a/extra/benchmark/dispatch5/dispatch5.factor b/extra/benchmark/dispatch5/dispatch5.factor
index e5834970c7d31e90995952a314ca9d564f5ee2ac..291d61ecba3eaabceedcd6d81c6b0cdcbde41720 100644 (file)
--- a/extra/benchmark/dispatch5/dispatch5.factor
+++ b/extra/benchmark/dispatch5/dispatch5.factor
@@ -1,77 +1,77 @@
-USING: classes classes.tuple kernel sequences vocabs math ;\r
-IN: benchmark.dispatch5\r
-\r
-MIXIN: g\r
-\r
-TUPLE: x1 ;\r
-INSTANCE: x1 g\r
-TUPLE: x2 ;\r
-INSTANCE: x2 g\r
-TUPLE: x3 ;\r
-INSTANCE: x3 g\r
-TUPLE: x4 ;\r
-INSTANCE: x4 g\r
-TUPLE: x5 ;\r
-INSTANCE: x5 g\r
-TUPLE: x6 ;\r
-INSTANCE: x6 g\r
-TUPLE: x7 ;\r
-INSTANCE: x7 g\r
-TUPLE: x8 ;\r
-INSTANCE: x8 g\r
-TUPLE: x9 ;\r
-INSTANCE: x9 g\r
-TUPLE: x10 ;\r
-INSTANCE: x10 g\r
-TUPLE: x11 ;\r
-INSTANCE: x11 g\r
-TUPLE: x12 ;\r
-INSTANCE: x12 g\r
-TUPLE: x13 ;\r
-INSTANCE: x13 g\r
-TUPLE: x14 ;\r
-INSTANCE: x14 g\r
-TUPLE: x15 ;\r
-INSTANCE: x15 g\r
-TUPLE: x16 ;\r
-INSTANCE: x16 g\r
-TUPLE: x17 ;\r
-INSTANCE: x17 g\r
-TUPLE: x18 ;\r
-INSTANCE: x18 g\r
-TUPLE: x19 ;\r
-INSTANCE: x19 g\r
-TUPLE: x20 ;\r
-INSTANCE: x20 g\r
-TUPLE: x21 ;\r
-INSTANCE: x21 g\r
-TUPLE: x22 ;\r
-INSTANCE: x22 g\r
-TUPLE: x23 ;\r
-INSTANCE: x23 g\r
-TUPLE: x24 ;\r
-INSTANCE: x24 g\r
-TUPLE: x25 ;\r
-INSTANCE: x25 g\r
-TUPLE: x26 ;\r
-INSTANCE: x26 g\r
-TUPLE: x27 ;\r
-INSTANCE: x27 g\r
-TUPLE: x28 ;\r
-INSTANCE: x28 g\r
-TUPLE: x29 ;\r
-INSTANCE: x29 g\r
-TUPLE: x30 ;\r
-INSTANCE: x30 g\r
-\r
-: my-classes ( -- seq )\r
-    "benchmark.dispatch5" vocab-words [ tuple-class? ] filter ;\r
-\r
-: a-bunch-of-objects ( -- seq )\r
-    my-classes [ new ] map ;\r
-\r
-: dispatch5-benchmark ( -- )\r
-    1000000 a-bunch-of-objects\r
-    [ f [ g? or ] reduce drop ] curry times ;\r
-\r
-MAIN: dispatch5-benchmark\r
+USING: classes classes.tuple kernel sequences vocabs math ;
+IN: benchmark.dispatch5
+
+MIXIN: g
+
+TUPLE: x1 ;
+INSTANCE: x1 g
+TUPLE: x2 ;
+INSTANCE: x2 g
+TUPLE: x3 ;
+INSTANCE: x3 g
+TUPLE: x4 ;
+INSTANCE: x4 g
+TUPLE: x5 ;
+INSTANCE: x5 g
+TUPLE: x6 ;
+INSTANCE: x6 g
+TUPLE: x7 ;
+INSTANCE: x7 g
+TUPLE: x8 ;
+INSTANCE: x8 g
+TUPLE: x9 ;
+INSTANCE: x9 g
+TUPLE: x10 ;
+INSTANCE: x10 g
+TUPLE: x11 ;
+INSTANCE: x11 g
+TUPLE: x12 ;
+INSTANCE: x12 g
+TUPLE: x13 ;
+INSTANCE: x13 g
+TUPLE: x14 ;
+INSTANCE: x14 g
+TUPLE: x15 ;
+INSTANCE: x15 g
+TUPLE: x16 ;
+INSTANCE: x16 g
+TUPLE: x17 ;
+INSTANCE: x17 g
+TUPLE: x18 ;
+INSTANCE: x18 g
+TUPLE: x19 ;
+INSTANCE: x19 g
+TUPLE: x20 ;
+INSTANCE: x20 g
+TUPLE: x21 ;
+INSTANCE: x21 g
+TUPLE: x22 ;
+INSTANCE: x22 g
+TUPLE: x23 ;
+INSTANCE: x23 g
+TUPLE: x24 ;
+INSTANCE: x24 g
+TUPLE: x25 ;
+INSTANCE: x25 g
+TUPLE: x26 ;
+INSTANCE: x26 g
+TUPLE: x27 ;
+INSTANCE: x27 g
+TUPLE: x28 ;
+INSTANCE: x28 g
+TUPLE: x29 ;
+INSTANCE: x29 g
+TUPLE: x30 ;
+INSTANCE: x30 g
+
+: my-classes ( -- seq )
+    "benchmark.dispatch5" vocab-words [ tuple-class? ] filter ;
+
+: a-bunch-of-objects ( -- seq )
+    my-classes [ new ] map ;
+
+: dispatch5-benchmark ( -- )
+    1000000 a-bunch-of-objects
+    [ f [ g? or ] reduce drop ] curry times ;
+
+MAIN: dispatch5-benchmark