From 6073e211eedaff9832f3078a8aa60cf43e1181a7 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 19 Feb 2018 09:46:18 -0800
Subject: [PATCH] io.streams.byte-array: implement stream-tell for byte-vector.

---
 core/io/streams/byte-array/byte-array.factor | 1 +
 1 file changed, 1 insertion(+)

diff --git a/core/io/streams/byte-array/byte-array.factor b/core/io/streams/byte-array/byte-array.factor
index d4523838ee..d37a8a7490 100644
--- a/core/io/streams/byte-array/byte-array.factor
+++ b/core/io/streams/byte-array/byte-array.factor
@@ -7,6 +7,7 @@ IN: io.streams.byte-array
 
 INSTANCE: byte-vector output-stream
 M: byte-vector stream-element-type drop +byte+ ; inline
+M: byte-vector stream-tell length ; inline
 
 : <byte-writer> ( encoding -- stream )
     512 <byte-vector> swap <encoder> ; inline