From 2a260ea6e409e53b045a1c72ebd7cb54c357ff35 Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Mon, 27 Nov 2006 01:36:36 +0000
Subject: [PATCH] -e command line switch to eval code

---
 library/cli.factor | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/library/cli.factor b/library/cli.factor
index f4bd124661..09972cdf78 100644
--- a/library/cli.factor
+++ b/library/cli.factor
@@ -40,6 +40,7 @@ parser sequences strings ;
 : default-cli-args
     #! Some flags are *on* by default, unless user specifies
     #! -no-<flag> CLI switch
+    "e" off
     "user-init" on
     "compile" on
     "native-io" on
@@ -54,5 +55,8 @@ parser sequences strings ;
     macosx? "shell" get "ui" = and ;
 
 : parse-command-line ( -- )
-    cli-args [ cli-arg ] subset
-    ignore-cli-args? [ drop ] [ [ ?run-file ] each ] if ;
+    [
+        cli-args [ cli-arg ] subset
+        ignore-cli-args? [ drop ] [ [ run-file ] each ] if
+        "e" get eval
+    ] try ;