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

[factor.git] / basis / io / encodings / shift-jis / shift-jis.factor

diff --git a/basis/io/encodings/shift-jis/shift-jis.factor b/basis/io/encodings/shift-jis/shift-jis.factor
index 7b2001255ea72b4e9ecc9c34a934309a8301aa0c..cd848cd6f833028d449921fbd42ed44e67f9485e 100644 (file)
--- a/basis/io/encodings/shift-jis/shift-jis.factor
+++ b/basis/io/encodings/shift-jis/shift-jis.factor
@@ -29,7 +29,7 @@ M: windows-31j <decoder> drop windows-31j-table get-global <decoder> ;
 
 TUPLE: jis assoc ;
 
-: ch>jis ( ch tuple -- jis ) assoc>> value-at [ throw-encode-error ] unless* ;
+: ch>jis ( ch tuple -- jis ) assoc>> value-at [ encode-error ] unless* ;
 : jis>ch ( jis tuple -- string ) assoc>> at replacement-char or ;
 
 : make-jis ( filename -- jis )