From edb7090993ba25039394864d0fe664b42f881e00 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 26 Aug 2009 13:48:41 -0500
Subject: [PATCH] support seeking on limited streams

---
 basis/io/streams/limited/limited.factor | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/basis/io/streams/limited/limited.factor b/basis/io/streams/limited/limited.factor
index fd441e4c4d..1b0e155762 100755
--- a/basis/io/streams/limited/limited.factor
+++ b/basis/io/streams/limited/limited.factor
@@ -98,5 +98,8 @@ PRIVATE>
 M: limited-stream stream-read-until
     swap BV{ } clone (read-until) [ 2nip B{ } like ] dip ;
 
+M: limited-stream stream-seek
+    stream>> stream-seek ;
+
 M: limited-stream dispose
     stream>> dispose ;