From: Joe Groff <arcata@gmail.com>
Date: Wed, 7 Jul 2010 20:52:18 +0000 (-0700)
Subject: windows.streams: get rid of workaround for stream-tell bug
X-Git-Tag: 0.97~4241^2~1^2^2~11
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=987c2b81535ff6656961dc2a71135a98be8176ef

windows.streams: get rid of workaround for stream-tell bug
---

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 ;