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

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

diff --git a/extra/benchmark/fib6/fib6.factor b/extra/benchmark/fib6/fib6.factor
index 5d6ec1564944784da28b37d175f977b88515b2cf..7af5ce31d144a2898dd6547d0f9de30ea20da9f7 100644 (file)
--- a/extra/benchmark/fib6/fib6.factor
+++ b/extra/benchmark/fib6/fib6.factor
@@ -1,14 +1,14 @@
-USING: math kernel alien alien.c-types ;\r
-IN: benchmark.fib6\r
-\r
-: fib ( x -- y )\r
-    int { int } cdecl [\r
-        dup 1 <= [ drop 1 ] [\r
-            1 - dup fib swap 1 - fib +\r
-        ] if\r
-    ] alien-callback\r
-    int { int } cdecl alien-indirect ;\r
-\r
-: fib6-benchmark ( -- ) 32 fib drop ;\r
-\r
-MAIN: fib6-benchmark\r
+USING: math kernel alien alien.c-types ;
+IN: benchmark.fib6
+
+: fib ( x -- y )
+    int { int } cdecl [
+        dup 1 <= [ drop 1 ] [
+            1 - dup fib swap 1 - fib +
+        ] if
+    ] alien-callback
+    int { int } cdecl alien-indirect ;
+
+: fib6-benchmark ( -- ) 32 fib drop ;
+
+MAIN: fib6-benchmark