io.encodings: Add a stream-tell method for decoder streams.

2013-06-04 17:46:25 -07:00 · 2013-06-04 17:46:25 -07:00 · d38fdb4433
parent 3e3ce269de
commit d38fdb4433
1 changed files with 2 additions and 0 deletions
--- a/core/io/encodings/encodings.factor
+++ b/core/io/encodings/encodings.factor
@ -86,6 +86,8 @@ M: decoder stream-element-type
 M: decoder stream-read1 ( decoder -- ch )
    dup (read1) fix-cr ; inline

+M: decoder stream-tell stream>> stream-tell ;
+
 : (read-first) ( n buf decoder -- buf stream encoding n c )
    [ rot [ >decoder< ] dip 2over decode-char ]
    [ swap fix-cr ] bi ; inline