factor: more top level forms.

[factor.git] / basis / io / standard-paths / standard-paths.factor

diff --git a/basis/io/standard-paths/standard-paths.factor b/basis/io/standard-paths/standard-paths.factor
index e56e8ca473ac02523a3a3057610a70009a8d77c0..d8f56136ec1a4833ceb5ed1f7734d97b5c8d5c3c 100644 (file)
--- a/basis/io/standard-paths/standard-paths.factor
+++ b/basis/io/standard-paths/standard-paths.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2011 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: combinators io.pathnames kernel sequences system
-vocabs ;
+vocabs vocabs.platforms ;
 IN: io.standard-paths
 
 HOOK: find-native-bundle os ( string -- path )
@@ -30,9 +30,6 @@ M: object find-in-standard-login-path*
         [ append-path ] [ 2drop f ] if
     ] if-empty ;
 
-{
-    { [ os windows? ] [ "io.standard-paths.windows" ] }
-    { [ os unix? ] [ "io.standard-paths.unix" ] }
-} cond require
-
-os macosx? [ "io.standard-paths.macosx" require ] when
+USE-MACOSX: io.standard-paths.macosx
+USE-UNIX: io.standard-paths.unix
+USE-WINDOWS: io.standard-paths.windows