support seeking on limited streams

2009-08-26 13:48:41 -05:00 · 2009-08-26 13:48:41 -05:00 · edb7090993
parent ddea2453a4
commit edb7090993
1 changed files with 3 additions and 0 deletions
--- a/basis/io/streams/limited/limited.factor
+++ b/basis/io/streams/limited/limited.factor
@ -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 ;