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

db4
Doug Coleman 2014-10-10 11:54:35 -07:00
parent 78830a476a
commit 5091780740
1 changed files with 2 additions and 0 deletions

View File

@ -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>> [