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

db4
Joe Groff 2010-07-07 13:52:18 -07:00
parent e2237afd61
commit 987c2b8153
1 changed files with 1 additions and 2 deletions

View File

@ -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 ;