fix stream-tell
parent
aa37a57b9a
commit
ed1636a0c0
|
@ -50,7 +50,7 @@ M: fd cancel-operation ( fd -- )
|
|||
] if ;
|
||||
|
||||
M: unix tell-handle ( handle -- n )
|
||||
fd>> SEEK_SET 0 lseek [ io-error ] [ ] bi ;
|
||||
fd>> 0 SEEK_CUR lseek [ io-error ] [ ] bi ;
|
||||
|
||||
M: unix seek-handle ( n seek-type handle -- )
|
||||
swap {
|
||||
|
|
|
@ -130,7 +130,7 @@ HOOK: seek-handle os ( n seek-type handle -- )
|
|||
M: buffered-port stream-tell ( stream -- n )
|
||||
[ check-disposed ]
|
||||
[ handle>> tell-handle ]
|
||||
[ buffer>> pos>> ] tri + ;
|
||||
[ [ buffer>> size>> - 0 max ] [ buffer>> pos>> ] bi + ] tri ;
|
||||
|
||||
M: input-port stream-seek ( n seek-type stream -- )
|
||||
[ check-disposed ]
|
||||
|
|
Loading…
Reference in New Issue