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 5ec2664ea851daf7505afbcbbbf1133a72d1520f..33c519e5006c422979ec4d42c66b6eee0cb19e91 100644 (file)
--- 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 )\r
     STG_E_INVALIDFUNCTION ;\r
 \r
-FROM: io.ports => tell-handle ;\r
 :: stream-size ( stream -- size )\r
     stream stream-tell :> old-pos\r
     0 seek-end stream stream-seek\r
-    stream handle>> tell-handle :> size\r
+    stream stream-tell :> size\r
     old-pos seek-absolute stream stream-seek\r
     size ;\r
 \r