From dceda349cdbcc42136953ee449576df2c7b952b6 Mon Sep 17 00:00:00 2001
From: "Yun, Jonghyouk" <ageldama@gmail.com>
Date: Sun, 1 Mar 2009 17:17:01 +0900
Subject: [PATCH] io.encodings.korean iso2022kr encode-char working version
---
basis/io/encodings/korean/korean.factor | 1 +
1 file changed, 1 insertion(+)
diff --git a/basis/io/encodings/korean/korean.factor b/basis/io/encodings/korean/korean.factor
index e1a31882ca..a0ac420348 100644
--- 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
]