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

concurrency.count-downs: Rename count-down tuple.

db4
Doug Coleman 2013-03-23 16:41:58 -07:00
parent 0b5c1b79c1
commit 42470e10e7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/concurrency/count-downs/count-downs.factor
View File

@ -6,7 +6,7 @@ IN: concurrency.count-downs
! http://java.sun.com/j2se/1.5.0/docs/api/java/util/concurrent/CountDownLatch.html ! http://java.sun.com/j2se/1.5.0/docs/api/java/util/concurrent/CountDownLatch.html
TUPLE: count-down n promise ; TUPLE: count-down-tuple n promise ;
: count-down-check ( count-down -- ) : count-down-check ( count-down -- )
dup n>> zero? [ t swap promise>> fulfill ] [ drop ] if ; dup n>> zero? [ t swap promise>> fulfill ] [ drop ] if ;
@ -15,7 +15,7 @@ ERROR: invalid-count-down-count count ;
: <count-down> ( n -- count-down ) : <count-down> ( n -- count-down )
dup 0 < [ invalid-count-down-count ] when dup 0 < [ invalid-count-down-count ] when
<promise> \ count-down boa <promise> \ count-down-tuple boa
dup count-down-check ; dup count-down-check ;
ERROR: count-down-already-done ; ERROR: count-down-already-done ;