From 987c2b81535ff6656961dc2a71135a98be8176ef Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Wed, 7 Jul 2010 13:52:18 -0700
Subject: [PATCH] windows.streams: get rid of workaround for stream-tell bug

---
 basis/windows/streams/streams.factor | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/basis/windows/streams/streams.factor b/basis/windows/streams/streams.factor
index 5ec2664ea8..33c519e500 100644
--- a/basis/windows/streams/streams.factor
+++ b/basis/windows/streams/streams.factor
@@ -69,11 +69,10 @@ SPECIALIZED-ARRAY: uchar
 :: IStream-unlock-region ( stream offset cb lock-type -- hresult )
     STG_E_INVALIDFUNCTION ;
 
-FROM: io.ports => tell-handle ;
 :: stream-size ( stream -- size )
     stream stream-tell :> old-pos
     0 seek-end stream stream-seek
-    stream handle>> tell-handle :> size
+    stream stream-tell :> size
     old-pos seek-absolute stream stream-seek
     size ;
 
-- 
2.34.1