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

[factor.git] / basis / models / delay / delay.factor

diff --git a/basis/models/delay/delay.factor b/basis/models/delay/delay.factor
index b7c9e7e8ed88fe985a8243c42d4288be799621f6..bb5dc24a5c3c4a0b0acd2cd613d2a334ed748404 100644 (file)
--- a/basis/models/delay/delay.factor
+++ b/basis/models/delay/delay.factor
@@ -1,27 +1,27 @@
-! Copyright (C) 2008 Slava Pestov.\r
-! See http://factorcode.org/license.txt for BSD license.\r
-USING: accessors fry kernel models timers ;\r
-IN: models.delay\r
-\r
-TUPLE: delay < model model timeout timer ;\r
-\r
-: update-delay-model ( delay -- )\r
-    [ model>> value>> ] keep set-model ;\r
-\r
-: <delay> ( model timeout -- delay )\r
-    f delay new-model\r
-        swap >>timeout\r
-        over >>model\r
-    [ add-dependency ] keep ;\r
-\r
-: stop-delay ( delay -- )\r
-    timer>> [ stop-timer ] when* ;\r
-\r
-: start-delay ( delay -- )\r
-    [ '[ _ f >>timer update-delay-model ] ]\r
-    [ timeout>> later ]\r
-    [ timer<< ] tri ;\r
-\r
-M: delay model-changed nip dup stop-delay start-delay ;\r
-\r
-M: delay model-activated update-delay-model ;\r
+! Copyright (C) 2008 Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
+USING: accessors fry kernel models timers ;
+IN: models.delay
+
+TUPLE: delay < model model timeout timer ;
+
+: update-delay-model ( delay -- )
+    [ model>> value>> ] keep set-model ;
+
+: <delay> ( model timeout -- delay )
+    f delay new-model
+        swap >>timeout
+        over >>model
+    [ add-dependency ] keep ;
+
+: stop-delay ( delay -- )
+    timer>> [ stop-timer ] when* ;
+
+: start-delay ( delay -- )
+    [ '[ _ f >>timer update-delay-model ] ]
+    [ timeout>> later ]
+    [ timer<< ] tri ;
+
+M: delay model-changed nip dup stop-delay start-delay ;
+
+M: delay model-activated update-delay-model ;