factor: more top level forms.

[factor.git] / extra / elevate / elevate.factor

diff --git a/extra/elevate/elevate.factor b/extra/elevate/elevate.factor
index 439ed145fdc74e732448d69fcd20c7dbcffe6b24..576351bf1b6cdd028cd522abfd70d5c27c5b4750 100644 (file)
--- a/extra/elevate/elevate.factor
+++ b/extra/elevate/elevate.factor
@@ -1,6 +1,7 @@
 USING: accessors arrays assocs combinators command-line
 environment formatting fry io.launcher kernel locals math
-namespaces sequences splitting strings system ui vocabs ;
+namespaces sequences splitting strings system ui vocabs
+vocabs.platforms ;
 IN: elevate
 
 <PRIVATE
@@ -27,10 +28,7 @@ HOOK: lowered  os ( -- )
 
 : elevate ( win-console? posix-graphical? -- ) [ (command-line) t ] 2dip elevated drop ;
 
-os unix? [ "elevate.unix" require ] when
-
-{
-    { [ os windows? ] [ "elevate.windows" require ] }
-    { [ os linux? ] [ "elevate.linux" require ] }
-    { [ os macosx? ] [ "elevate.macosx" require ] }
-} cond
+USE-UNIX: elevate.unix
+USE-WINDOWS: elevate.windows
+USE-LINUX: elevate.linux
+USE-MACOSX: elevate.macosx