steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/io/streams/limited/limited.factor
View File

@ -27,15 +27,6 @@ M: decoder limit-stream ( stream limit -- stream' )
M: object limit-stream ( stream limit -- stream' ) M: object limit-stream ( stream limit -- stream' )
<limited-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 -- ) : limited-input ( limit -- )
[ input-stream ] dip '[ _ limit-stream ] change ; [ input-stream ] dip '[ _ limit-stream ] change ;