take the buffer position into account on buffered-port stream-tell
parent
1d41f4c66c
commit
aa37a57b9a
|
@ -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 ]
|
||||
|
|
Loading…
Reference in New Issue