From d38fdb4433d6122ba1a21224a613f51b224a7b72 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 4 Jun 2013 17:46:25 -0700
Subject: [PATCH] io.encodings: Add a stream-tell method for decoder streams.

---
 core/io/encodings/encodings.factor | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/core/io/encodings/encodings.factor b/core/io/encodings/encodings.factor
index bd36a65fba..db4d2624c6 100644
--- 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