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