]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/models/arrow/arrow.factor
core, basis, extra: Remove DOS line endings from files.
[factor.git] / basis / models / arrow / arrow.factor
index 2ed0e9fea0fc68d1bf2cf0cd09235fc79f7bac27..24797a1cbf66a120e77eb0b942907de9a8ed0569 100644 (file)
@@ -1,18 +1,18 @@
-! Copyright (C) 2008, 2009 Slava Pestov.\r
-! See http://factorcode.org/license.txt for BSD license.\r
-USING: accessors kernel models sequences ;\r
-IN: models.arrow\r
-\r
-TUPLE: arrow < model quot ;\r
-\r
-: <arrow> ( model quot -- arrow )\r
-    f arrow new-model\r
-        swap >>quot\r
-    [ add-dependency ] keep ;\r
-\r
-M: arrow model-changed\r
-    [ [ value>> ] [ quot>> ] bi* call( old -- new ) ]\r
-    [ set-model ] bi ;\r
-\r
-M: arrow model-activated\r
-    [ dependencies>> ] keep [ model-changed ] curry each ;\r
+! Copyright (C) 2008, 2009 Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
+USING: accessors kernel models sequences ;
+IN: models.arrow
+
+TUPLE: arrow < model quot ;
+
+: <arrow> ( model quot -- arrow )
+    f arrow new-model
+        swap >>quot
+    [ add-dependency ] keep ;
+
+M: arrow model-changed
+    [ [ value>> ] [ quot>> ] bi* call( old -- new ) ]
+    [ set-model ] bi ;
+
+M: arrow model-activated
+    [ dependencies>> ] keep [ model-changed ] curry each ;