io.ports: bring back file read performance, ignoring zeroes.

2015-09-23 20:07:53 -07:00 · 2015-09-23 20:07:53 -07:00 · 924fc60e30
parent 84e0034168
commit 924fc60e30
1 changed files with 1 additions and 2 deletions
--- a/basis/io/ports/ports.factor
+++ b/basis/io/ports/ports.factor
@ -208,9 +208,8 @@ M: output-port stream-seek
 M: buffered-port stream-seekable?
    handle>> can-seek-handle? ;

-! Cannot be ``handle>> handle-length`` because of a race condition.
 M: buffered-port stream-length
-    drop f ;
+    handle>> handle-length [ f ] when-zero ;

 GENERIC: shutdown ( handle -- )