Add (dyn :executable).

Also remove process/args.

src/mainclient/init.janet

@@ -1,7 +1,5 @@
 # Copyright 2017-2019 (C) Calvin Rose
 
-(def process/args "Deprecated. use '(dyn :args)' at script entry instead for process argument array."
-  (dyn :args))
 (do
 
   (var *should-repl* false)
@@ -66,7 +64,7 @@
     (if h (h i) (do (print "unknown flag -" n) ((get handlers "h")))))
 
   # Process arguments
-  (var i 1)
+  (var i 0)
   (def lenargs (length args))
   (while (< i lenargs)
     (def arg (get args i))

src/mainclient/main.c

@@ -61,10 +61,13 @@ int main(int argc, char **argv) {
 
     /* Create args tuple */
     args = janet_array(argc);
-    for (i = 0; i < argc; i++)
+    for (i = 1; i < argc; i++)
         janet_array_push(args, janet_cstringv(argv[i]));
     janet_table_put(env, janet_ckeywordv("args"), janet_wrap_array(args));
 
+    /* Save current executable path to (dyn :executable) */
+    janet_table_put(env, janet_ckeywordv("executable"), janet_cstringv(argv[0]));
+
     /* Run startup script */
     status = janet_dobytes(env, janet_gen_init, janet_gen_init_size, "init.janet", NULL);