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

[factor.git] / extra / descriptive / descriptive-tests.factor

diff --git a/extra/descriptive/descriptive-tests.factor b/extra/descriptive/descriptive-tests.factor
index 6630d2addb9c81157f86fa46df70bc501ac1f6dc..cc1c1be942e1042267daf223566c93dfe57b5110 100644 (file)
--- a/extra/descriptive/descriptive-tests.factor
+++ b/extra/descriptive/descriptive-tests.factor
@@ -1,34 +1,34 @@
-USING: descriptive kernel math tools.test continuations prettyprint io.streams.string see\r
-math.ratios ;\r
-IN: descriptive.tests\r
-\r
-DESCRIPTIVE: divide ( num denom -- fraction ) / ;\r
-\r
-[ 3 ] [ 9 3 divide ] unit-test\r
-\r
-[\r
-    T{ descriptive-error f\r
-        { { "num" 3 } { "denom" 0 } }\r
-        T{ division-by-zero f 3 }\r
-        divide\r
-    }\r
-] [\r
-    [ 3 0 divide ] [ ] recover\r
-] unit-test\r
-\r
-[ "USING: descriptive math ;\nIN: descriptive.tests\nDESCRIPTIVE: divide ( num denom -- fraction ) / ;\n" ]\r
-[ \ divide [ see ] with-string-writer ] unit-test\r
-\r
-DESCRIPTIVE:: divide* ( num denom -- fraction ) num denom / ;\r
-\r
-[ 3 ] [ 9 3 divide* ] unit-test\r
-\r
-[\r
-    T{ descriptive-error f\r
-        { { "num" 3 } { "denom" 0 } }\r
-        T{ division-by-zero f 3 }\r
-        divide*\r
-    }\r
-] [ [ 3 0 divide* ] [ ] recover ] unit-test\r
-\r
-[ "USING: descriptive math ;\nIN: descriptive.tests\nDESCRIPTIVE:: divide* ( num denom -- fraction ) num denom / ;\n" ] [ \ divide* [ see ] with-string-writer ] unit-test\r
+USING: descriptive kernel math tools.test continuations prettyprint io.streams.string see
+math.ratios ;
+IN: descriptive.tests
+
+DESCRIPTIVE: divide ( num denom -- fraction ) / ;
+
+[ 3 ] [ 9 3 divide ] unit-test
+
+[
+    T{ descriptive-error f
+        { { "num" 3 } { "denom" 0 } }
+        T{ division-by-zero f 3 }
+        divide
+    }
+] [
+    [ 3 0 divide ] [ ] recover
+] unit-test
+
+[ "USING: descriptive math ;\nIN: descriptive.tests\nDESCRIPTIVE: divide ( num denom -- fraction ) / ;\n" ]
+[ \ divide [ see ] with-string-writer ] unit-test
+
+DESCRIPTIVE:: divide* ( num denom -- fraction ) num denom / ;
+
+[ 3 ] [ 9 3 divide* ] unit-test
+
+[
+    T{ descriptive-error f
+        { { "num" 3 } { "denom" 0 } }
+        T{ division-by-zero f 3 }
+        divide*
+    }
+] [ [ 3 0 divide* ] [ ] recover ] unit-test
+
+[ "USING: descriptive math ;\nIN: descriptive.tests\nDESCRIPTIVE:: divide* ( num denom -- fraction ) num denom / ;\n" ] [ \ divide* [ see ] with-string-writer ] unit-test