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

[factor.git] / extra / models / history / history.factor

diff --git a/extra/models/history/history.factor b/extra/models/history/history.factor
index 58cd6e0bca033ed0660e06ba4c9474e119035588..29e35ca82911ba3c6f79ee6418c686fa2b1fb57d 100644 (file)
--- a/extra/models/history/history.factor
+++ b/extra/models/history/history.factor
@@ -1,33 +1,33 @@
-! Copyright (C) 2008 Slava Pestov.\r
-! See http://factorcode.org/license.txt for BSD license.\r
-USING: accessors kernel locals models sequences ;\r
-IN: models.history\r
-\r
-TUPLE: history < model back forward ;\r
-\r
-: reset-history ( history -- history )\r
-    V{ } clone >>back\r
-    V{ } clone >>forward ; inline\r
-\r
-: <history> ( value -- history )\r
-    history new-model\r
-        reset-history ;\r
-\r
-: (add-history) ( history to -- )\r
-    swap value>> [ swap push ] [ drop ] if* ;\r
-\r
-:: go-back/forward ( history to from -- )\r
-    from empty? [\r
-        history to (add-history)\r
-        from pop history set-model\r
-    ] unless ;\r
-\r
-: go-back ( history -- )\r
-    dup [ forward>> ] [ back>> ] bi go-back/forward ;\r
-\r
-: go-forward ( history -- )\r
-    dup [ back>> ] [ forward>> ] bi go-back/forward ;\r
-\r
-: add-history ( history -- )\r
-    dup forward>> delete-all\r
-    dup back>> (add-history) ;\r
+! Copyright (C) 2008 Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
+USING: accessors kernel locals models sequences ;
+IN: models.history
+
+TUPLE: history < model back forward ;
+
+: reset-history ( history -- history )
+    V{ } clone >>back
+    V{ } clone >>forward ; inline
+
+: <history> ( value -- history )
+    history new-model
+        reset-history ;
+
+: (add-history) ( history to -- )
+    swap value>> [ swap push ] [ drop ] if* ;
+
+:: go-back/forward ( history to from -- )
+    from empty? [
+        history to (add-history)
+        from pop history set-model
+    ] unless ;
+
+: go-back ( history -- )
+    dup [ forward>> ] [ back>> ] bi go-back/forward ;
+
+: go-forward ( history -- )
+    dup [ back>> ] [ forward>> ] bi go-back/forward ;
+
+: add-history ( history -- )
+    dup forward>> delete-all
+    dup back>> (add-history) ;