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

2009-10-03 19:15:56 -05:00 · 2009-10-03 19:15:56 -05:00 · aa37a57b9a
parent 1d41f4c66c
commit aa37a57b9a
1 changed files with 2 additions and 1 deletions
--- a/basis/io/ports/ports.factor
+++ b/basis/io/ports/ports.factor
@ -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 ]