factor: more top level forms.

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

diff --git a/basis/tools/deploy/deploy.factor b/basis/tools/deploy/deploy.factor
index 07104a8c059527518b54a11cbe1078acc35d6d62..e16292d072e5859a963a30b81f3f303861526c01 100644 (file)
--- a/basis/tools/deploy/deploy.factor
+++ b/basis/tools/deploy/deploy.factor
@@ -2,7 +2,7 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: combinators command-line io.directories kernel namespaces
 sequences system tools.deploy.backend tools.deploy.config
-tools.deploy.config.editor vocabs vocabs.loader ;
+tools.deploy.config.editor vocabs vocabs.loader vocabs.platforms ;
 IN: tools.deploy
 
 ERROR: no-vocab-main vocab ;
@@ -23,11 +23,9 @@ ERROR: no-vocab-main vocab ;
     [ vm-path ] 2dip
     swap dup deploy-config make-deploy-image drop ;
 
-{
-    { [ os macosx? ] [ "tools.deploy.macosx" ] }
-    { [ os windows? ] [ "tools.deploy.windows" ] }
-    { [ os unix? ] [ "tools.deploy.unix" ] }
-} cond require
+USE-MACOSX: tools.deploy.macosx
+USE-UNIX: tools.deploy.unix
+USE-WINDOWS: tools.deploy.windows
 
 : deploy-main ( -- )
     command-line get [ [ require ] [ deploy ] bi ] each ;