basis: removing unnecessary method stack effects.

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

diff --git a/basis/io/encodings/utf7/utf7.factor b/basis/io/encodings/utf7/utf7.factor
index 3fe399c2d5b39d78e59f1caa69bb46ba610dbfbf..bf1706a2cf86b0101d47d190f90daa75d3df907d 100644 (file)
--- a/basis/io/encodings/utf7/utf7.factor
+++ b/basis/io/encodings/utf7/utf7.factor
@@ -45,7 +45,7 @@ TUPLE: utf7codec dialect buffer ;
         ] until
     ] B{ } make 3nip ;
 
-M: utf7codec encode-string ( str stream codec -- )
+M: utf7codec encode-string
     swapd encode-utf7-string swap stream-write ;
 
 DEFER: emit-char
@@ -65,7 +65,7 @@ DEFER: emit-char
 : replace-all! ( src dst -- )
     [ delete-all ] keep push-all ;
 
-M: utf7codec decode-char ( stream codec -- char/f )
+M: utf7codec decode-char
     swap [
         [ dialect>> ] [ buffer>> ] bi [ emit-char ] keep replace-all!
     ] with-input-stream ;