-! Copyright (C) 2005, 2008 Chris Double, Slava Pestov.\r
-! See http://factorcode.org/license.txt for BSD license.\r
-USING: concurrency.promises concurrency.mailboxes kernel arrays\r
-continuations accessors fry ;\r
-IN: concurrency.futures\r
-\r
-: future ( quot -- future )\r
- <promise> [\r
- [ '[ @ _ fulfill ] "Future" ] keep\r
- mailbox>> spawn-linked-to drop\r
- ] keep ; inline\r
-\r
-: ?future-timeout ( future timeout -- value )\r
- ?promise-timeout ?linked ;\r
-\r
-: ?future ( future -- value )\r
- ?promise ?linked ;\r
+! Copyright (C) 2005, 2008 Chris Double, Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
+USING: concurrency.promises concurrency.mailboxes kernel arrays
+continuations accessors fry ;
+IN: concurrency.futures
+
+: future ( quot -- future )
+ <promise> [
+ [ '[ @ _ fulfill ] "Future" ] keep
+ mailbox>> spawn-linked-to drop
+ ] keep ; inline
+
+: ?future-timeout ( future timeout -- value )
+ ?promise-timeout ?linked ;
+
+: ?future ( future -- value )
+ ?promise ?linked ;