io.encodings.korean iso2022kr encode-char working version

diff --git a/basis/io/encodings/korean/korean.factor b/basis/io/encodings/korean/korean.factor
index e1a31882ca3aaded87454d8239d82745fcd6944c..a0ac420348e90e0bcfe00abc9a8384e1880a799a 100644 (file)
--- a/basis/io/encodings/korean/korean.factor
+++ b/basis/io/encodings/korean/korean.factor
@@ -198,6 +198,7 @@ M: iso2022kr decode-char ( stream encoding -- char/f )
                 [
                     stream stream-read1 c2!
                     c1 c2 2byte-array be> cp949>unicode
+                    GL>GR at
                 ]
                 [ c1 ] if
             ]