From 9a49a1b8370e524ede33977e23c754da52d8c3a8 Mon Sep 17 00:00:00 2001
From: "Yun, Jonghyouk" <ageldama@gmail.com>
Date: Sun, 1 Mar 2009 17:23:41 +0900
Subject: [PATCH] io.encodings.korean iso2022kr ...

---
 basis/io/encodings/korean/korean.factor | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/basis/io/encodings/korean/korean.factor b/basis/io/encodings/korean/korean.factor
index a0ac420348..01319019fd 100644
--- 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
             ]