support seeking on limited streams

db4
Doug Coleman 2009-08-26 13:48:41 -05:00
parent ddea2453a4
commit edb7090993
1 changed files with 3 additions and 0 deletions
basis/io/streams/limited

View File

@ -98,5 +98,8 @@ PRIVATE>
M: limited-stream stream-read-until
swap BV{ } clone (read-until) [ 2nip B{ } like ] dip ;
M: limited-stream stream-seek
stream>> stream-seek ;
M: limited-stream dispose
stream>> dispose ;