io.streams.peek: Add file position indicator api calls.

diff --git a/extra/io/streams/peek/peek.factor b/extra/io/streams/peek/peek.factor
index 562952bceeda1fc70f96c78334fe33c10afdce6c..c768d2ccc74e82a88b050a651318ce843acf5a8f 100644 (file)
--- a/extra/io/streams/peek/peek.factor
+++ b/extra/io/streams/peek/peek.factor
@@ -65,6 +65,8 @@ M: peek-stream stream-read-until
 M: peek-stream stream-write stream>> stream-write ;
 M: peek-stream stream-write1 stream>> stream-write1 ;
 M: peek-stream stream-flush stream>> stream-flush ;
+M: peek-stream stream-tell stream>> stream-tell ;
+M: peek-stream stream-seek stream>> stream-seek ;
 
 : stream-peek1 ( stream -- ch )
     dup peeked>> [