-! Copyright (C) 2008 Slava Pestov.\r
-! See http://factorcode.org/license.txt for BSD license.\r
-USING: accessors models kernel assocs ;\r
-IN: models.mapping\r
-\r
-TUPLE: mapping < model assoc ;\r
-\r
-: <mapping> ( models -- mapping )\r
- f mapping new-model\r
- over values >>dependencies\r
- swap >>assoc ;\r
-\r
-M: mapping model-changed\r
- nip [ assoc>> [ value>> ] assoc-map ] keep set-model ;\r
-\r
-M: mapping model-activated\r
- dup model-changed ;\r
-\r
-M: mapping update-model\r
- [ value>> ] [ assoc>> ] bi\r
- [ swapd at set-model ] curry assoc-each ;\r
+! Copyright (C) 2008 Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
+USING: accessors models kernel assocs ;
+IN: models.mapping
+
+TUPLE: mapping < model assoc ;
+
+: <mapping> ( models -- mapping )
+ f mapping new-model
+ over values >>dependencies
+ swap >>assoc ;
+
+M: mapping model-changed
+ nip [ assoc>> [ value>> ] assoc-map ] keep set-model ;
+
+M: mapping model-activated
+ dup model-changed ;
+
+M: mapping update-model
+ [ value>> ] [ assoc>> ] bi
+ [ swapd at set-model ] curry assoc-each ;