support seeking on limited streams
parent
ddea2453a4
commit
edb7090993
|
@ -98,5 +98,8 @@ PRIVATE>
|
||||||
M: limited-stream stream-read-until
|
M: limited-stream stream-read-until
|
||||||
swap BV{ } clone (read-until) [ 2nip B{ } like ] dip ;
|
swap BV{ } clone (read-until) [ 2nip B{ } like ] dip ;
|
||||||
|
|
||||||
|
M: limited-stream stream-seek
|
||||||
|
stream>> stream-seek ;
|
||||||
|
|
||||||
M: limited-stream dispose
|
M: limited-stream dispose
|
||||||
stream>> dispose ;
|
stream>> dispose ;
|
||||||
|
|
Loading…
Reference in New Issue