diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-06-24 00:38:15 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-06-24 00:38:15 +0000 |
| commit | b482b8dde1493be19a01c6a53cf5e9e17510d7a8 (patch) | |
| tree | 11e823f1e1f6bf2715c8a1e6b9c6be8ed52236a6 /src/utils | |
| parent | 2131e2c22ebf8e7ad51df4e4a8d9fa5dddfdb62d (diff) | |
| download | open-axiom-b482b8dde1493be19a01c6a53cf5e9e17510d7a8.tar.gz | |
* utils/command.cc (build_rts_options) [clozure_runtime]: Request
no read of initialization file instead of quiet mode.
(execute_core): Set arg[0] to the about-to-bed-executed program.
Diffstat (limited to 'src/utils')
| -rw-r--r-- | src/utils/command.cc | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/utils/command.cc b/src/utils/command.cc index f53e6f70..0784f14c 100644 --- a/src/utils/command.cc +++ b/src/utils/command.cc @@ -223,7 +223,7 @@ build_rts_options(Command* command, Driver driver) case clozure_runtime: command->rt_args.allocate(2); - command->rt_args[0] = (char*) "--quiet"; + command->rt_args[0] = (char*) "--no-init"; command->rt_args[1] = (char*) "--batch"; break; @@ -523,10 +523,8 @@ execute_core(const Command* command, Driver driver) args[0] = (char*) ""; /* And CLISP wants to believe that argv[0] is where it hides stuff from the saved image. */ - else if (OPENAXIOM_BASE_RTS == clisp_runtime) - args[0] = execpath; else - args[0] = command->core.argv[0]; + args[0] = execpath; /* Now, make sure we copy whatever arguments are required by the runtime system. */ for (i = 0; i < command->rt_args.size(); ++i) |