basis: ERROR: changes.

[factor.git] / basis / concurrency / count-downs / count-downs.factor

diff --git a/basis/concurrency/count-downs/count-downs.factor b/basis/concurrency/count-downs/count-downs.factor
index c5d1d57985dce08e3fb85849de5bafe6fdee3e64..0a5891d7e2bfe1c60612b014dfa158660b744fa7 100755 (executable)
--- a/basis/concurrency/count-downs/count-downs.factor
+++ b/basis/concurrency/count-downs/count-downs.factor
@@ -14,7 +14,7 @@ TUPLE: count-down-tuple n promise ;
 ERROR: invalid-count-down-count count ;
 
 : <count-down> ( n -- count-down )
-    dup 0 < [ invalid-count-down-count ] when
+    dup 0 < [ throw-invalid-count-down-count ] when
     <promise> \ count-down-tuple boa
     dup count-down-check ;
 
@@ -22,7 +22,7 @@ ERROR: count-down-already-done ;
 
 : count-down ( count-down -- )
     dup n>> dup zero?
-    [ count-down-already-done ]
+    [ throw-count-down-already-done ]
     [ 1 - >>n count-down-check ] if ;
 
 : await-timeout ( count-down timeout -- )