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

diff --git a/basis/io/ports/ports.factor b/basis/io/ports/ports.factor
index 208e023e08348ae5f1df529d46769a4aa680d901..77b54d7192edfda039b4865ba8779b542aabb45e 100644 (file)
--- 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 -- )