From cf6a12c55cdc81454f1bb06e69d2ddc3167fbe54 Mon Sep 17 00:00:00 2001
From: "Yun, Jonghyouk" <ageldama@gmail.com>
Date: Sat, 28 Feb 2009 16:29:25 +0900
Subject: [PATCH] io.encodings.korean johab, cp949 => encode-char
refactoring...
---
basis/io/encodings/korean/korean.factor | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/basis/io/encodings/korean/korean.factor b/basis/io/encodings/korean/korean.factor
index 9df28aa7a8..b95c59d0b7 100644
--- 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 ;