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

[factor.git] / basis / io / timeouts / timeouts.factor

diff --git a/basis/io/timeouts/timeouts.factor b/basis/io/timeouts/timeouts.factor
index 2190b4009d27ed2281fdfde8103add92341be43e..42238b6526bdec9d58e38dc8b354d57a6b6e2c62 100644 (file)
--- a/basis/io/timeouts/timeouts.factor
+++ b/basis/io/timeouts/timeouts.factor
@@ -1,31 +1,31 @@
-! Copyright (C) 2008 Slava Pestov, Doug Coleman\r
-! See http://factorcode.org/license.txt for BSD license.\r
-USING: accessors fry io io.encodings io.streams.null kernel\r
-namespaces timers ;\r
-IN: io.timeouts\r
-\r
-GENERIC: timeout ( obj -- dt/f )\r
-GENERIC: set-timeout ( dt/f obj -- )\r
-\r
-M: decoder set-timeout stream>> set-timeout ;\r
-\r
-M: encoder set-timeout stream>> set-timeout ;\r
-\r
-GENERIC: cancel-operation ( obj -- )\r
-\r
-: queue-timeout ( obj timeout -- timer )\r
-    [ '[ _ cancel-operation ] ] dip later ;\r
-\r
-: with-timeout* ( obj timeout quot -- )\r
-    2over queue-timeout [ nip call ] dip stop-timer ;\r
-    inline\r
-\r
-: with-timeout ( obj quot -- )\r
-    over timeout [ [ dup timeout ] dip with-timeout* ] [ call ] if ;\r
-    inline\r
-\r
-: timeouts ( dt -- )\r
-    [ input-stream get set-timeout ]\r
-    [ output-stream get set-timeout ] bi ;\r
-\r
-M: null-stream set-timeout 2drop ;\r
+! Copyright (C) 2008 Slava Pestov, Doug Coleman
+! See http://factorcode.org/license.txt for BSD license.
+USING: accessors fry io io.encodings io.streams.null kernel
+namespaces timers ;
+IN: io.timeouts
+
+GENERIC: timeout ( obj -- dt/f )
+GENERIC: set-timeout ( dt/f obj -- )
+
+M: decoder set-timeout stream>> set-timeout ;
+
+M: encoder set-timeout stream>> set-timeout ;
+
+GENERIC: cancel-operation ( obj -- )
+
+: queue-timeout ( obj timeout -- timer )
+    [ '[ _ cancel-operation ] ] dip later ;
+
+: with-timeout* ( obj timeout quot -- )
+    2over queue-timeout [ nip call ] dip stop-timer ;
+    inline
+
+: with-timeout ( obj quot -- )
+    over timeout [ [ dup timeout ] dip with-timeout* ] [ call ] if ;
+    inline
+
+: timeouts ( dt -- )
+    [ input-stream get set-timeout ]
+    [ output-stream get set-timeout ] bi ;
+
+M: null-stream set-timeout 2drop ;