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

io.encodings.korean iso2022kr encode-char working version

db4
Yun, Jonghyouk 2009-03-01 17:17:01 +09:00
parent 7903319263
commit dceda349cd
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -198,6 +198,7 @@ M: iso2022kr decode-char ( stream encoding -- char/f )
[ [
stream stream-read1 c2! stream stream-read1 c2!
c1 c2 2byte-array be> cp949>unicode c1 c2 2byte-array be> cp949>unicode
GL>GR at
] ]
[ c1 ] if [ c1 ] if
] ]