default values for file-systems slots

diff --git a/basis/tools/files/files.factor b/basis/tools/files/files.factor
index db49dcbf61c50c1f6b783b5eebd0388444a0752c..a8ce9c9554d8f7c90dc8997f35ef33b70f3b85cb 100755 (executable)
--- a/basis/tools/files/files.factor
+++ b/basis/tools/files/files.factor
@@ -44,12 +44,13 @@ percent-used percent-free ;
         { device-name [ device-name>> ] }
         { mount-point [ mount-point>> ] }
         { type [ type>> ] }
-        { available-space [ available-space>> ] }
-        { free-space [ free-space>> ] }
-        { used-space [ used-space>> ] }
-        { total-space [ total-space>> ] }
+        { available-space [ available-space>> [ 0 ] unless* ] }
+        { free-space [ free-space>> [ 0 ] unless* ] }
+        { used-space [ used-space>> [ 0 ] unless* ] }
+        { total-space [ total-space>> [ 0 ] unless* ] }
         { percent-used [
-            [ used-space>> ] [ total-space>> ] bi dup 0 =
+            [ used-space>> ] [ total-space>> ] bi
+            [ [ 0 ] unless* ] bi@ dup 0 =
             [ 2drop 0 ] [ / percent ] if
         ] }
     } case ;