From 42470e10e7323f0dd27f293b4c699e0ed25d93c0 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 23 Mar 2013 16:41:58 -0700 Subject: [PATCH] concurrency.count-downs: Rename count-down tuple. --- basis/concurrency/count-downs/count-downs.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 ;