io.encodings.korean johab, cp949 => encode-char refactoring...

2009-02-28 16:29:25 +09:00 · 2009-02-28 16:29:25 +09:00 · cf6a12c55c
parent fc1199358c
commit cf6a12c55c
1 changed files with 4 additions and 4 deletions
--- a/basis/io/encodings/korean/korean.factor
+++ b/basis/io/encodings/korean/korean.factor
@ -84,11 +84,11 @@ VALUE: johab-table
        h>b/b swap 2byte-array
        stream stream-write
    ]
-    [ c 1byte-array stream drop drop
-      stream-write
+    [
+        c 1byte-array
+        stream stream-write
    ]
-    if ;
-    
+    if ; inline

 M: johab encode-char ( char stream encoding -- )
    drop [ unicode>johab ] [ byte? not ] encode-char-mb ;