From 36a4a59efcf2cb304fcb21db8e37ab14124c6914 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 13 Aug 2012 16:42:56 -0700
Subject: [PATCH] command-line: if run is specified first non-param starts the
 command-line.

---
 basis/command-line/command-line.factor | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/basis/command-line/command-line.factor b/basis/command-line/command-line.factor
index 20d1390a98..0b24d27603 100644
--- 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