basis: removing unnecessary method stack effects.

[factor.git] / basis / io / streams / limited / limited.factor

diff --git a/basis/io/streams/limited/limited.factor b/basis/io/streams/limited/limited.factor
index 79438d5bc5b0c7d59144c13cb21f7373b751b3d7..4b2ae2d2e7a74ba39ac535ec122795e7fbb746ca 100644 (file)
--- a/basis/io/streams/limited/limited.factor
+++ b/basis/io/streams/limited/limited.factor
@@ -22,11 +22,11 @@ INSTANCE: limited-stream input-stream
 
 GENERIC#: limit-stream 1 ( stream limit -- stream' )
 
-M: decoder limit-stream ( stream limit -- stream' )
+M: decoder limit-stream
     '[ stream>> _ limit-stream ] [ code>> ] [ cr>> ] tri
     decoder boa ; inline
 
-M: object limit-stream ( stream limit -- stream' )
+M: object limit-stream
     <limited-stream> ;
 
 : limited-input ( limit -- )
@@ -147,10 +147,10 @@ M: limited-stream stream-element-type
 
 GENERIC: unlimit-stream ( stream -- stream' )
 
-M: decoder unlimit-stream ( stream -- stream' )
+M: decoder unlimit-stream
     [ stream>> stream>> ] [ code>> ] [ cr>> ] tri decoder boa ;
 
-M: limited-stream unlimit-stream ( stream -- stream' ) stream>> ;
+M: limited-stream unlimit-stream stream>> ;
 
 : unlimited-input ( -- )
     input-stream [ unlimit-stream ] change ;