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

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

diff --git a/basis/io/encodings/gb18030/gb18030.factor b/basis/io/encodings/gb18030/gb18030.factor
index 57708b73cd8d59345537c857c36281a64a736b83..7e9d1678570e58c0d8a6f71264f700615e8aaeb1 100644 (file)
--- a/basis/io/encodings/gb18030/gb18030.factor
+++ b/basis/io/encodings/gb18030/gb18030.factor
@@ -90,7 +90,7 @@ ascii <file-reader> xml>gb-data
 : lookup-range ( char -- byte-array )
     dup u>gb get-global interval-at [
         [ ufirst>> - ] [ bfirst>> ] bi + unlinear
-    ] [ throw-encode-error ] if* ;
+    ] [ encode-error ] if* ;
 
 M: gb18030 encode-char ( char stream encoding -- )
     drop [