take the buffer position into account on buffered-port stream-tell

db4
Doug Coleman 2009-10-03 19:15:56 -05:00
parent 1d41f4c66c
commit aa37a57b9a
1 changed files with 2 additions and 1 deletions

View File

@ -129,7 +129,8 @@ HOOK: seek-handle os ( n seek-type handle -- )
M: buffered-port stream-tell ( stream -- n )
[ check-disposed ]
[ handle>> tell-handle ] bi ;
[ handle>> tell-handle ]
[ buffer>> pos>> ] tri + ;
M: input-port stream-seek ( n seek-type stream -- )
[ check-disposed ]