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

2014-10-10 11:54:35 -07:00 · 2014-10-10 11:54:35 -07:00 · 5091780740
parent 78830a476a
commit 5091780740
1 changed files with 2 additions and 0 deletions
--- 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>> [