change ERROR: words from throw-foo back to foo.

[factor.git] / extra / uu / uu.factor

diff --git a/extra/uu/uu.factor b/extra/uu/uu.factor
index f30b3da56b81581c622454e27e2886bb766f64c7..c1d23e0d9ac7c000e240ca401d97c822cd14d45d 100644 (file)
--- a/extra/uu/uu.factor
+++ b/extra/uu/uu.factor
@@ -11,7 +11,7 @@ IN: uu
 ERROR: bad-length seq ;
 
 : check-length ( seq -- seq )
-    dup length 45 > [ throw-bad-length ] when ; inline
+    dup length 45 > [ bad-length ] when ; inline
 
 :: binary>ascii ( seq -- seq' )
     0 :> char!
@@ -41,7 +41,7 @@ ERROR: illegal-character ch ;
 
 : check-illegal-character ( ch -- ch )
     dup { [ CHAR: \s < ] [ CHAR: \s 64 + > ] } 1||
-    [ throw-illegal-character ] when ;
+    [ illegal-character ] when ;
 
 :: ascii>binary ( seq -- seq' )
     0 :> char!