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

diff --git a/core/io/encodings/encodings.factor b/core/io/encodings/encodings.factor
index bd36a65fba11caa5151269200c2cd189ac128eb4..db4d2624c69a3c98c462ecefdcae65ae75b54361 100644 (file)
--- 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