From 2854ecd4eca253bf5afca0665b91fad311f8f3fe Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 13 Aug 2012 21:06:57 -0700
Subject: [PATCH] command-line: need to check for run differently.

---
 basis/command-line/command-line.factor | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/basis/command-line/command-line.factor b/basis/command-line/command-line.factor
index 71f87d8658..8f38208c89 100644
--- a/basis/command-line/command-line.factor
+++ b/basis/command-line/command-line.factor
@@ -62,19 +62,19 @@ SYMBOL: command-line
         [ source-file main>> [ execute( -- ) ] when* ] bi
     ] with-variable ;
 
-: run-script? ( rest first -- rest first ? )
-    over empty? not "run" get-global and ;
-
-: parse-command-line ( args -- )
-    [ command-line off script off ] [
+: (parse-command-line) ( run? args -- )
+    [ command-line off script off drop ] [
         unclip "-" ?head
-        [ param parse-command-line ]
+        [ param (parse-command-line) ]
         [
-            run-script? [ prefix f ] when
+            rot [ prefix f ] when
             script set command-line set
         ] if
     ] if-empty ;
 
+: parse-command-line ( args -- )
+    [ [ "-run=" head? ] any? ] keep (parse-command-line) ;
+
 SYMBOL: main-vocab-hook
 
 : main-vocab ( -- vocab )