From 03a18c060b6c290e5c8728fc89dfb68a19957136 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 19 Feb 2018 09:46:33 -0800
Subject: [PATCH] io.streams.string: implement stream-tell for sbufs.

---
 basis/io/streams/string/string.factor | 1 +
 1 file changed, 1 insertion(+)

diff --git a/basis/io/streams/string/string.factor b/basis/io/streams/string/string.factor
index bb16e7ec81..c1c2518419 100644
--- a/basis/io/streams/string/string.factor
+++ b/basis/io/streams/string/string.factor
@@ -35,6 +35,7 @@ M: string-reader dispose drop ;
 
 ! Writers
 M: sbuf stream-element-type drop +character+ ; inline
+M: sbuf stream-tell length ; inline
 
 : <string-writer> ( -- stream )
     512 <sbuf> ; inline