]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/models/mapping/mapping.factor
core, basis, extra: Remove DOS line endings from files.
[factor.git] / basis / models / mapping / mapping.factor
index c401714dd4c02634e4246b8f0cd464a344cf00e4..0afa9c66de77377616bcb83439ce4ea46617b9a9 100644 (file)
@@ -1,21 +1,21 @@
-! 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 ;