io.encodings.korean iso2022kr ...

2009-03-01 17:23:41 +09:00 · 2009-03-01 17:23:41 +09:00 · 9a49a1b837
parent dceda349cd
commit 9a49a1b837
1 changed files with 3 additions and 2 deletions
--- a/basis/io/encodings/korean/korean.factor
+++ b/basis/io/encodings/korean/korean.factor
@ -197,8 +197,9 @@ M: iso2022kr decode-char ( stream encoding -- char/f )
                stream iso2022kr-stream-get-status shift-out =
                [
                    stream stream-read1 c2!
-                    c1 c2 2byte-array be> cp949>unicode
-                    GL>GR at
+                    c1 c2 2byte-array
+                    [ GL>GR at ] map
+                    be> cp949>unicode                    
                ]
                [ c1 ] if
            ]