basis: removing unnecessary method stack effects.

[factor.git] / basis / io / encodings / gb18030 / gb18030.factor

diff --git a/basis/io/encodings/gb18030/gb18030.factor b/basis/io/encodings/gb18030/gb18030.factor
index 7e9d1678570e58c0d8a6f71264f700615e8aaeb1..6198b406e980e44275fc7db85d32ea42d5c7596e 100644 (file)
--- a/basis/io/encodings/gb18030/gb18030.factor
+++ b/basis/io/encodings/gb18030/gb18030.factor
@@ -92,7 +92,7 @@ ascii <file-reader> xml>gb-data
         [ ufirst>> - ] [ bfirst>> ] bi + unlinear
     ] [ encode-error ] if* ;
 
-M: gb18030 encode-char ( char stream encoding -- )
+M: gb18030 encode-char
     drop [
         dup mapping get-global at
         [ ] [ lookup-range ] ?if
@@ -128,7 +128,7 @@ M: gb18030 encode-char ( char stream encoding -- )
         [ 3drop replacement-char ]
     } cond ;
 
-M: gb18030 decode-char ( stream encoding -- char )
+M: gb18030 decode-char
     drop dup stream-read1 {
         { [ dup not ] [ 2drop f ] }
         { [ dup ascii? ] [ nip 1byte-array mapping get-global value-at ] }