io.ports: bring back file read performance, ignoring zeroes.
parent
84e0034168
commit
924fc60e30
|
@ -208,9 +208,8 @@ M: output-port stream-seek
|
||||||
M: buffered-port stream-seekable?
|
M: buffered-port stream-seekable?
|
||||||
handle>> can-seek-handle? ;
|
handle>> can-seek-handle? ;
|
||||||
|
|
||||||
! Cannot be ``handle>> handle-length`` because of a race condition.
|
|
||||||
M: buffered-port stream-length
|
M: buffered-port stream-length
|
||||||
drop f ;
|
handle>> handle-length [ f ] when-zero ;
|
||||||
|
|
||||||
GENERIC: shutdown ( handle -- )
|
GENERIC: shutdown ( handle -- )
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue