factor: more top level forms.

[factor.git] / basis / tools / files / files.factor

diff --git a/basis/tools/files/files.factor b/basis/tools/files/files.factor
index fbf1ac86e72e89903e0c0d2d0e62f1b3adb85016..63b519f0cf66d711011bd356012447b93db5e665 100644 (file)
--- a/basis/tools/files/files.factor
+++ b/basis/tools/files/files.factor
@@ -3,7 +3,7 @@
 USING: accessors arrays calendar calendar.english
 calendar.format combinators io.directories io.files.info kernel
 math math.parser prettyprint sequences sorting.slots splitting
-system vocabs ;
+system vocabs vocabs.platforms ;
 IN: tools.files
 
 <PRIVATE
@@ -125,7 +125,5 @@ CONSTANT: default-file-systems-spec
 : file-systems. ( -- )
     default-file-systems-spec print-file-systems ;
 
-{
-    { [ os unix? ] [ "tools.files.unix" ] }
-    { [ os windows? ] [ "tools.files.windows" ] }
-} cond require
+USE-UNIX: tools.files.unix
+USE-WINDOWS: tools.files.unix