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

[factor.git] / extra / base85 / base85.factor

diff --git a/extra/base85/base85.factor b/extra/base85/base85.factor
index e2d5f1cf6d2efc54eef2346d7287ae1c85350608..fb8efb2e2c7e5cb7750271aa79e6c0f234fb323b 100644 (file)
--- a/extra/base85/base85.factor
+++ b/extra/base85/base85.factor
@@ -18,7 +18,7 @@ CONSTANT: alphabet
 
 : base85>ch ( ch -- ch )
     $[ alphabet alphabet-inverse ] nth
-    [ throw-malformed-base85 ] unless* ; inline
+    [ malformed-base85 ] unless* ; inline
 
 : encode4 ( seq -- seq' )
     be> 5 [ 85 /mod ch>base85 ] B{ } replicate-as reverse! nip ; inline
@@ -48,7 +48,7 @@ PRIVATE>
     5 "\n\r" pick read-ignoring dup length {
         { 0 [ 2drop ] }
         { 5 [ decode5 (decode-base85) ] }
-        [ throw-malformed-base85 ]
+        [ malformed-base85 ]
     } case ;
 
 PRIVATE>