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

[factor.git] / extra / log-viewer / log-viewer.factor

diff --git a/extra/log-viewer/log-viewer.factor b/extra/log-viewer/log-viewer.factor
index 08a5eac72d8b2469ce54a957bbbe9d8cc08c8940..e494c977649694f2723c3b4e6ecc8643bc66d7fd 100644 (file)
--- a/extra/log-viewer/log-viewer.factor
+++ b/extra/log-viewer/log-viewer.factor
@@ -1,14 +1,14 @@
-USING: kernel io io.files io.pathnames io.monitors io.encodings.utf8 ;\r
-IN: log-viewer\r
-\r
-: read-lines ( stream -- )\r
-    dup stream-readln dup\r
-    [ print read-lines ] [ 2drop flush ] if ;\r
-\r
-: tail-file-loop ( stream monitor -- )\r
-    dup next-change drop over read-lines tail-file-loop ;\r
-\r
-: tail-file ( file -- )\r
-    dup utf8 <file-reader> dup read-lines\r
-    swap parent-directory f <monitor>\r
-    tail-file-loop ;\r
+USING: kernel io io.files io.pathnames io.monitors io.encodings.utf8 ;
+IN: log-viewer
+
+: read-lines ( stream -- )
+    dup stream-readln dup
+    [ print read-lines ] [ 2drop flush ] if ;
+
+: tail-file-loop ( stream monitor -- )
+    dup next-change drop over read-lines tail-file-loop ;
+
+: tail-file ( file -- )
+    dup utf8 <file-reader> dup read-lines
+    swap parent-directory f <monitor>
+    tail-file-loop ;