support seeking on limited streams
parent
ddea2453a4
commit
edb7090993
basis/io/streams/limited
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue