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

[factor.git] / extra / nested-comments / nested-comments.factor

diff --git a/extra/nested-comments/nested-comments.factor b/extra/nested-comments/nested-comments.factor
index 393b98f62b87f022e474ff4b788d9f5f684c367e..190f10ef18e422009d7c6709c386ded6c55526ce 100644 (file)
--- a/extra/nested-comments/nested-comments.factor
+++ b/extra/nested-comments/nested-comments.factor
@@ -1,22 +1,22 @@
-! Copyright (C) 2009 blei, Doug Coleman.\r
-! See http://factorcode.org/license.txt for BSD license.\r
-USING: kernel locals make math multiline sequences ;\r
-IN: nested-comments\r
-\r
-: (count-subsequences) ( count substring string n -- count' )\r
-    [ 2dup ] dip start* [\r
-        pick length +\r
-        [ 1 + ] 3dip (count-subsequences)\r
-    ] [\r
-        2drop\r
-    ] if* ;\r
-\r
-: count-subsequences ( subseq seq -- n )\r
-    [ 0 ] 2dip 0 (count-subsequences) ;\r
-\r
-: parse-nestable-comment ( parsed-vector left-to-parse -- parsed-vector )\r
-    1 - "*)" parse-multiline-string\r
-    [ "(*" ] dip\r
-    count-subsequences + dup 0 > [ parse-nestable-comment ] [ drop ] if ;\r
-\r
-SYNTAX: (* 1 parse-nestable-comment ;\r
+! Copyright (C) 2009 blei, Doug Coleman.
+! See http://factorcode.org/license.txt for BSD license.
+USING: kernel locals make math multiline sequences ;
+IN: nested-comments
+
+: (count-subsequences) ( count substring string n -- count' )
+    [ 2dup ] dip start* [
+        pick length +
+        [ 1 + ] 3dip (count-subsequences)
+    ] [
+        2drop
+    ] if* ;
+
+: count-subsequences ( subseq seq -- n )
+    [ 0 ] 2dip 0 (count-subsequences) ;
+
+: parse-nestable-comment ( parsed-vector left-to-parse -- parsed-vector )
+    1 - "*)" parse-multiline-string
+    [ "(*" ] dip
+    count-subsequences + dup 0 > [ parse-nestable-comment ] [ drop ] if ;
+
+SYNTAX: (* 1 parse-nestable-comment ;