io.streams.limited: scrape out last vestiges of unlimiting

db4
Joe Groff 2010-07-09 14:56:54 -07:00
parent f7960c7f6a
commit fb4cbd87d4
1 changed files with 0 additions and 9 deletions

View File

@ -27,15 +27,6 @@ M: decoder limit-stream ( stream limit -- stream' )
M: object limit-stream ( stream limit -- stream' )
<limited-stream> ;
GENERIC: unlimit-stream ( stream -- stream' )
M: decoder unlimit-stream ( stream -- stream' )
[ stream>> ] change-stream ;
M: limited-stream unlimit-stream ( stream -- stream' ) stream>> ;
M: object unlimit-stream ( stream -- stream' ) ;
: limited-input ( limit -- )
[ input-stream ] dip '[ _ limit-stream ] change ;