steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/concurrency/concurrency.factor
View File

@ -270,11 +270,10 @@ TUPLE: future value processes ;
tuck set-future-value tuck set-future-value
dup future-processes [ schedule-thread ] each dup future-processes [ schedule-thread ] each
f swap set-future-processes ; f swap set-future-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