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

[factor.git] / basis / io / encodings / iso2022 / iso2022.factor

diff --git a/basis/io/encodings/iso2022/iso2022.factor b/basis/io/encodings/iso2022/iso2022.factor
index d9b9a7f6cdd751cba3a6e31554f1b1b174523210..9b2f3f44c5772941e15ef16a6ebb5940aaaf7f5b 100644 (file)
--- a/basis/io/encodings/iso2022/iso2022.factor
+++ b/basis/io/encodings/iso2022/iso2022.factor
@@ -44,7 +44,7 @@ CONSTANT: switch-jis212 B{ $ ESC CHAR: $ CHAR: ( CHAR: D }
         { [ dup jis201 get-global value? ] [ drop switch-jis201 jis201 get-global ] }
         { [ dup jis208 get-global value? ] [ drop switch-jis208 jis208 get-global ] }
         { [ dup jis212 get-global value? ] [ drop switch-jis212 jis212 get-global ] }
-        [ throw-encode-error ]
+        [ encode-error ]
     } cond ;
 
 : stream-write-num ( num stream -- )