diff --git a/basis/concurrency/count-downs/count-downs.factor b/basis/concurrency/count-downs/count-downs.factor index 51dfc9e706..85b0f76f85 100755 --- a/basis/concurrency/count-downs/count-downs.factor +++ b/basis/concurrency/count-downs/count-downs.factor @@ -6,7 +6,7 @@ IN: concurrency.count-downs ! 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 -- ) dup n>> zero? [ t swap promise>> fulfill ] [ drop ] if ; @@ -15,7 +15,7 @@ ERROR: invalid-count-down-count count ; : ( n -- count-down ) dup 0 < [ invalid-count-down-count ] when - \ count-down boa + \ count-down-tuple boa dup count-down-check ; ERROR: count-down-already-done ;