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

[factor.git] / basis / io / encodings / 8-bit / 8-bit.factor

diff --git a/basis/io/encodings/8-bit/8-bit.factor b/basis/io/encodings/8-bit/8-bit.factor
index 17b3a274f95a151bf2adfba37dc7dd788f9b1d02..8aec5cb496d372504c85b31b30942d26fb178fe1 100644 (file)
--- a/basis/io/encodings/8-bit/8-bit.factor
+++ b/basis/io/encodings/8-bit/8-bit.factor
@@ -18,7 +18,7 @@ SYMBOL: 8-bit-encodings
 TUPLE: 8-bit { biassoc biassoc read-only } ;
 
 : 8-bit-encode ( char 8-bit -- byte )
-    biassoc>> value-at [ throw-encode-error ] unless* ; inline
+    biassoc>> value-at [ encode-error ] unless* ; inline
 
 M: 8-bit encode-char
     swap [ 8-bit-encode ] dip stream-write1 ;