Concurrency fix

db4
Slava Pestov 2008-02-09 14:14:37 -06:00
parent 25c64c8ac7
commit a21781e380
1 changed files with 1 additions and 2 deletions

View File

@ -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