core: Set argv for mescc too.
* src/mes.c (main)[!__MESC__]: Remove branch.
This commit is contained in:
parent
c8262dac34
commit
2418540c67
|
@ -1354,9 +1354,7 @@ main (int argc, char *argv[])
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
SCM lst = cell_nil;
|
SCM lst = cell_nil;
|
||||||
#if !__MESC__
|
|
||||||
for (int i=argc-1; i>=0; i--) lst = cons (MAKE_STRING (cstring_to_list (argv[i])), lst);
|
for (int i=argc-1; i>=0; i--) lst = cons (MAKE_STRING (cstring_to_list (argv[i])), lst);
|
||||||
#endif
|
|
||||||
r0 = acons (cell_symbol_argv, lst, r0);
|
r0 = acons (cell_symbol_argv, lst, r0);
|
||||||
push_cc (r2, cell_unspecified, r0, cell_unspecified);
|
push_cc (r2, cell_unspecified, r0, cell_unspecified);
|
||||||
if (g_debug > 1)
|
if (g_debug > 1)
|
||||||
|
|
Loading…
Reference in New Issue