From 50917807403568fe3a5afeced4cf886f1611a311 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Fri, 10 Oct 2014 11:54:35 -0700 Subject: [PATCH] io.streams.peek: Add file position indicator api calls. --- extra/io/streams/peek/peek.factor | 2 ++ 1 file changed, 2 insertions(+) diff --git a/extra/io/streams/peek/peek.factor b/extra/io/streams/peek/peek.factor index 562952bcee..c768d2ccc7 100644 --- 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>> [