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