-! 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 ;