Allow specifying vocabulary roots on the command line

[factor.git] / basis / command-line / command-line.factor

diff --git a/basis/command-line/command-line.factor b/basis/command-line/command-line.factor
index 44ff0c0c1206fe7417858b2095c5c03ad6cdf33a..9d4ccda7f3b92a9f418fec94a38a1e8e0f932673 100644 (file)
--- a/basis/command-line/command-line.factor
+++ b/basis/command-line/command-line.factor
@@ -48,6 +48,10 @@ SYMBOL: command-line
         ".factor-roots" rc-path dup exists? [
             utf8 file-lines harvest [ add-vocab-root ] each
         ] [ drop ] if
+        "roots" get [
+            os windows? ";" ":" ?
+            split [ add-vocab-root ] each
+        ] when*
     ] when ;
 
 : var-param ( name value -- ) swap set-global ;