From f3acfcd355fc7e17e0395552dddef240873b170e Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 9 Dec 2008 21:30:11 -0600
Subject: [PATCH] replace f with a "" for file-systems.

---
 basis/tools/files/files.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/tools/files/files.factor b/basis/tools/files/files.factor
index b4295af205..7968639d47 100755
--- a/basis/tools/files/files.factor
+++ b/basis/tools/files/files.factor
@@ -41,9 +41,9 @@ percent-used percent-free ;
 
 : file-system-spec ( file-system-info obj -- str )
     {
-        { device-name [ device-name>> ] }
-        { mount-point [ mount-point>> ] }
-        { type [ type>> ] }
+        { device-name [ device-name>> [ "" ] unless* ] }
+        { mount-point [ mount-point>> [ "" ] unless* ] }
+        { type [ type>> [ "" ] unless* ] }
         { available-space [ available-space>> [ 0 ] unless* ] }
         { free-space [ free-space>> [ 0 ] unless* ] }
         { used-space [ used-space>> [ 0 ] unless* ] }