18 lines
515 B
Factor
Executable File
18 lines
515 B
Factor
Executable File
! Copyright (C) 2005, 2008 Chris Double, Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: concurrency.promises concurrency.messaging kernel arrays
|
|
continuations ;
|
|
IN: concurrency.futures
|
|
|
|
: future ( quot -- future )
|
|
<promise> [
|
|
[ [ >r call r> fulfill ] 2curry "Future" ] keep
|
|
promise-mailbox spawn-linked-to drop
|
|
] keep ; inline
|
|
|
|
: ?future-timeout ( future timeout -- value )
|
|
?promise-timeout ;
|
|
|
|
: ?future ( future -- value )
|
|
?promise ;
|