diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-06-05 07:50:47 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-06-05 07:50:47 +0000 |
| commit | 903aea5b9f16651e41527340c551d088defaebaf (patch) | |
| tree | cd358bd316fbca181325c7ca9b4b55259e4f7cbc /src/driver | |
| parent | fb155ef42c8c4a312e83af20b279d140f3468419 (diff) | |
| download | open-axiom-903aea5b9f16651e41527340c551d088defaebaf.tar.gz | |
* driver/utils.c (openaxiom_execute_core): Don't let CLISP fool
itself.
Diffstat (limited to 'src/driver')
| -rw-r--r-- | src/driver/Makefile.in | 2 | ||||
| -rw-r--r-- | src/driver/utils.c | 4 |
2 files changed, 5 insertions, 1 deletions
diff --git a/src/driver/Makefile.in b/src/driver/Makefile.in index 3862dfba..75e67763 100644 --- a/src/driver/Makefile.in +++ b/src/driver/Makefile.in @@ -64,7 +64,7 @@ open-axiom$(EXEEXT): $(open_axiom_objects) $(LINK) -o $@ $(open_axiom_objects) $(open_axiom_LDADD) mostlyclean-local: - @rm -f $(axiom_objects) + @rm -f $(open_axiom_objects) @rm -f *~ core clean-local: mostlyclean-local diff --git a/src/driver/utils.c b/src/driver/utils.c index d0d4ca86..ea8c4faf 100644 --- a/src/driver/utils.c +++ b/src/driver/utils.c @@ -392,6 +392,10 @@ openaxiom_execute_core(const openaxiom_command* command, something to tell about what GCL's own runtime is. Silly. */ if (OPENAXIOM_BASE_RTS == openaxiom_gcl_runtime) args[0] = ""; + /* And CLISP wants to believe that argv[0] is where it hides stuff + from the saved image. */ + else if (OPENAXIOM_BASE_RTS == openaxiom_clisp_runtime) + args[0] = execpath; else args[0] = command->core.argv[0]; /* Now, make sure we copy whatever arguments are required by the |