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

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

diff --git a/extra/descriptive/descriptive-docs.factor b/extra/descriptive/descriptive-docs.factor
index e488f0ccb70acea451e2b894b027064e61792827..38b478a220cfb9e637c072e2d399330a8a7f7c2e 100644 (file)
--- a/extra/descriptive/descriptive-docs.factor
+++ b/extra/descriptive/descriptive-docs.factor
@@ -1,32 +1,32 @@
-USING: help.syntax help.markup words ;\r
-IN: descriptive\r
-\r
-HELP: DESCRIPTIVE:\r
-{ $syntax "DESCRIPTIVE: word ( inputs -- outputs ) definition ;" }\r
-{ $description "Defines a word such that, if an error is thrown from within it, that error is wrapped in a " { $link descriptive-error } " with the arguments to that word." } ;\r
-\r
-HELP: DESCRIPTIVE::\r
-{ $syntax "DESCRIPTIVE:: word ( inputs -- outputs ) definition ;" }\r
-{ $description "Defines a word which uses locals such that, if an error is thrown from within it, that error is wrapped in a " { $link descriptive-error } " with the arguments to that word." } ;\r
-\r
-HELP: descriptive-error\r
-{ $error-description "The class of errors wrapping another error (in the underlying slot) which were thrown in a word (in the word slot) with a given set of arguments (in the args slot)." } ;\r
-\r
-HELP: make-descriptive\r
-{ $values { "word" word } }\r
-{ $description "Makes the word wrap errors in " { $link descriptive-error } " instances." } ;\r
-\r
-ARTICLE: "descriptive" "Descriptive errors"\r
-"This vocabulary defines automatic descriptive errors. Using it, you can define a word which acts as normal, except when it throws an error, the error is wrapped in an instance of a class:"\r
-{ $subsections descriptive-error }\r
-"The wrapper contains the word itself, the input parameters, as well as the original error."\r
-$nl\r
-"To annotate an existing word with descriptive error checking:"\r
-{ $subsections make-descriptive }\r
-"To define words which throw descriptive errors, use the following words:"\r
-{ $subsections\r
-    POSTPONE: DESCRIPTIVE:\r
-    POSTPONE: DESCRIPTIVE::\r
-} ;\r
-\r
-ABOUT: "descriptive"\r
+USING: help.syntax help.markup words ;
+IN: descriptive
+
+HELP: DESCRIPTIVE:
+{ $syntax "DESCRIPTIVE: word ( inputs -- outputs ) definition ;" }
+{ $description "Defines a word such that, if an error is thrown from within it, that error is wrapped in a " { $link descriptive-error } " with the arguments to that word." } ;
+
+HELP: DESCRIPTIVE::
+{ $syntax "DESCRIPTIVE:: word ( inputs -- outputs ) definition ;" }
+{ $description "Defines a word which uses locals such that, if an error is thrown from within it, that error is wrapped in a " { $link descriptive-error } " with the arguments to that word." } ;
+
+HELP: descriptive-error
+{ $error-description "The class of errors wrapping another error (in the underlying slot) which were thrown in a word (in the word slot) with a given set of arguments (in the args slot)." } ;
+
+HELP: make-descriptive
+{ $values { "word" word } }
+{ $description "Makes the word wrap errors in " { $link descriptive-error } " instances." } ;
+
+ARTICLE: "descriptive" "Descriptive errors"
+"This vocabulary defines automatic descriptive errors. Using it, you can define a word which acts as normal, except when it throws an error, the error is wrapped in an instance of a class:"
+{ $subsections descriptive-error }
+"The wrapper contains the word itself, the input parameters, as well as the original error."
+$nl
+"To annotate an existing word with descriptive error checking:"
+{ $subsections make-descriptive }
+"To define words which throw descriptive errors, use the following words:"
+{ $subsections
+    POSTPONE: DESCRIPTIVE:
+    POSTPONE: DESCRIPTIVE::
+} ;
+
+ABOUT: "descriptive"