From 924fc60e30516b8dc2e4665c1cf4abdde929da45 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 23 Sep 2015 20:07:53 -0700
Subject: [PATCH] io.ports: bring back file read performance, ignoring zeroes.

---
 basis/io/ports/ports.factor | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/basis/io/ports/ports.factor b/basis/io/ports/ports.factor
index 208e023e08..77b54d7192 100644
--- 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 -- )