extra: use throw-foo for ERROR: change

[factor.git] / extra / progress-bars / progress-bars.factor

diff --git a/extra/progress-bars/progress-bars.factor b/extra/progress-bars/progress-bars.factor
index b397a0b28716145dd9a757151928d3ad9cedbd42..4d856b82c092044a49b962170ff3aa8f30ebe184 100644 (file)
--- a/extra/progress-bars/progress-bars.factor
+++ b/extra/progress-bars/progress-bars.factor
@@ -7,12 +7,12 @@ IN: progress-bars
 ERROR: invalid-percent x ;
 
 : check-percent ( x -- x )
-    dup 0 1 between? [ invalid-percent ] unless ;
+    dup 0 1 between? [ throw-invalid-percent ] unless ;
 
 ERROR: invalid-length x ;
 
 : check-length ( x -- x )
-    dup { [ 0 > ] [ integer? ] } 1&& [ invalid-length ] unless ;
+    dup { [ 0 > ] [ integer? ] } 1&& [ throw-invalid-length ] unless ;
 
 : (make-progress-bar) ( percent len completed-ch pending-ch -- string )
     [ [ * >integer ] keep over - ] 2dip