Concurrency fix
parent
25c64c8ac7
commit
a21781e380
|
@ -274,7 +274,6 @@ TUPLE: future value processes ;
|
|||
: future ( quot -- future )
|
||||
#! Spawn a process to call the quotation and immediately return.
|
||||
\ future construct-empty [
|
||||
[
|
||||
[
|
||||
>r [ t 2array ] compose [ f 2array ] recover r>
|
||||
notify-future
|
||||
|
|
Loading…
Reference in New Issue