steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io.encodings.korean iso2022kr ...

db4
Yun, Jonghyouk 2009-03-01 17:23:41 +09:00
parent dceda349cd
commit 9a49a1b837
1 changed files with 3 additions and 2 deletions
basis/io/encodings/korean

5
basis/io/encodings/korean/korean.factor
View File

@ -197,8 +197,9 @@ M: iso2022kr decode-char ( stream encoding -- char/f )
stream iso2022kr-stream-get-status shift-out = stream iso2022kr-stream-get-status shift-out =
[ [
stream stream-read1 c2! stream stream-read1 c2!
c1 c2 2byte-array be> cp949>unicode c1 c2 2byte-array
GL>GR at [ GL>GR at ] map
be> cp949>unicode
] ]
[ c1 ] if [ c1 ] if
] ]