Re-add 8dfc63eb99

basis/io/encodings/iana/iana.factor

@@ -2,7 +2,8 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: kernel strings values io.files assocs
 splitting sequences io namespaces sets io.encodings.8-bit
-io.encodings.ascii io.encodings.utf8 io.encodings.utf16  ;
+io.encodings.ascii io.encodings.utf8 io.encodings.utf16 
+io.encodings.chinese io.encodings.japanese ;
 IN: io.encodings.iana
 
 <PRIVATE
@@ -24,6 +25,9 @@ VALUE: n>e-table
     { latin/hebrew "ISO-8859-8" }
     { latin5 "ISO-8859-9" }
     { latin6 "ISO-8859-10" }
+    { shift-jis "Shift_JIS" }
+    { windows-31j "Windows-31J" }
+    { gb18030 "GB18030" }
 } ;
 PRIVATE>
 

basis/io/encodings/japanese/japanese-docs.factor

@@ -4,7 +4,7 @@ USING: help.markup help.syntax ;
 IN: io.encodings.japanese
 
 ARTICLE: "io.encodings.japanese" "Japanese text encodings"
-"Several encodings are used for Japanese text besides the standard UTF encodings for Unicode strings. These are mostly based on the character set defined in the JIS X 208 standard. Current coverage of encodings is incomplete."
+"The " { $vocab-link "io.encodings.japanese" } " vocabulary implements Japanese-specific text encodings. Several encodings are used for Japanese text besides the standard UTF encodings for Unicode strings. These are mostly based on the character set defined in the JIS X 208 standard. Current coverage of encodings is incomplete."
 { $subsection shift-jis }
 { $subsection windows-31j } ;
 

basis/io/encodings/japanese/japanese.factor

@@ -15,7 +15,7 @@ VALUE: windows-31j
 TUPLE: jis assoc ;
 
 : <jis> ( assoc -- jis )
-    [ nip ] assoc-filter H{ } assoc-like
+    [ nip ] assoc-filter
     >biassoc jis boa ;
 
 : ch>jis ( ch tuple -- jis ) assoc>> value-at [ encode-error ] unless* ;