file-systems. -> print-file-systems, file-systems. no longer takes a spec array

diff --git a/basis/tools/files/files-tests.factor b/basis/tools/files/files-tests.factor
index 4dc4ef23f057451172917e85cd8ee391251e0f88..6cbc7d192c5898c7cae4a5069810515797ce4dc0 100644 (file)
--- a/basis/tools/files/files-tests.factor
+++ b/basis/tools/files/files-tests.factor
@@ -7,5 +7,4 @@ IN: tools.files.tests
 
 [ ] [ "" directory. ] unit-test
 
-[ ]
-[ { device-name free-space used-space total-space percent-used } file-systems. ] unit-test
+[ ] [ file-systems. ] unit-test

diff --git a/basis/tools/files/files.factor b/basis/tools/files/files.factor
index a8ce9c9554d8f7c90dc8997f35ef33b70f3b85cb..ab9ce01c3e6c057111d0372676064e5cf3f8c45a 100755 (executable)
--- a/basis/tools/files/files.factor
+++ b/basis/tools/files/files.factor
@@ -58,10 +58,14 @@ percent-used percent-free ;
 : file-systems-info ( spec -- seq )
     file-systems swap '[ _ [ file-system-spec ] with map ] map ;
 
-: file-systems. ( spec -- )
+: print-file-systems ( spec -- )
     [ file-systems-info ]
     [ [ unparse ] map ] bi prefix simple-table. ;
 
+: file-systems. ( -- )
+    { device-name free-space used-space total-space percent-used }
+    print-file-systems ;
+
 {
     { [ os unix? ] [ "tools.files.unix" ] }
     { [ os windows? ] [ "tools.files.windows" ] }