vm: store full command-line including executable first argument.

basis/bootstrap/stage2.factor

@@ -71,7 +71,7 @@ SYMBOL: bootstrap-time
 
     strip-encodings
 
-    (command-line) parse-command-line
+    (command-line) rest parse-command-line
 
     ! Set dll paths
     os windows? [ "windows" require ] when

basis/command-line/startup/startup.factor

@@ -1,7 +1,7 @@
 ! Copyright (C) 2011 Joe Groff.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: command-line eval io io.pathnames kernel namespaces
-system vocabs.loader ;
+sequences system vocabs.loader ;
 IN: command-line.startup
 
 : cli-usage ( -- )
@@ -28,7 +28,7 @@ from within Factor for more information.
     os windows? [ script get "/?" = ] [ f ] if or ;
 
 : command-line-startup ( -- )
-    (command-line) parse-command-line
+    (command-line) rest parse-command-line
     help? [ cli-usage ] [
         load-vocab-roots
         run-user-init

vm/factor.cpp

@@ -177,7 +177,7 @@ void factor_vm::init_factor(vm_parameters* p) {
 void factor_vm::pass_args_to_factor(int argc, vm_char** argv) {
   growable_array args(this);
 
-  for (fixnum i = 1; i < argc; i++)
+  for (fixnum i = 0; i < argc; i++)
     args.add(allot_alien(false_object, (cell)argv[i]));
 
   args.trim();