io.encodings.korean iso2022kr encode-char working version

2009-03-01 17:17:01 +09:00 · 2009-03-01 17:17:01 +09:00 · dceda349cd
parent 7903319263
commit dceda349cd
1 changed files with 1 additions and 0 deletions
--- 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
            ]