command-line: if run is specified first non-param starts the command-line.

diff --git a/basis/command-line/command-line.factor b/basis/command-line/command-line.factor
index 20d1390a987077a0a3f277b4825d5011058a9422..0b24d2760317ea57a3e19b2107bcf5a41ce34c3e 100644 (file)
--- a/basis/command-line/command-line.factor
+++ b/basis/command-line/command-line.factor
@@ -66,7 +66,10 @@ SYMBOL: command-line
     [ command-line off script off ] [
         unclip "-" ?head
         [ param parse-command-line ]
-        [ script set command-line set ] if
+        [
+            "run" get-global [ prefix f ] when
+            script set command-line set
+        ] if
     ] if-empty ;
 
 SYMBOL: main-vocab-hook