diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-02-02 18:40:51 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-02-02 18:40:51 +0000 |
| commit | af766b8f0eca0aeebaba80c1fd7947f7904fb1fb (patch) | |
| tree | fab21fb0d9aa891848c920411fb5fd3dc4812987 | |
| parent | 98246580bde4dcf9c5dcbf58f3e882bf7f969ddd (diff) | |
| download | open-axiom-af766b8f0eca0aeebaba80c1fd7947f7904fb1fb.tar.gz | |
* boot/translator.boot (translateBootFile): Tidy.
| -rw-r--r-- | src/boot/translator.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot/translator.boot b/src/boot/translator.boot index 8d866052..cabf8d5a 100644 --- a/src/boot/translator.boot +++ b/src/boot/translator.boot @@ -747,7 +747,7 @@ defaultBootToLispFile file == CONCAT(shoeRemovebootIfNec file,'".clisp") translateBootFile(progname, options, file) == - outFile := getOutputPathname(options) + outFile := getOutputPathname options or defaultBootToLispFile file BOOTTOCL(file, ENOUGH_-NAMESTRING outFile) compileBootHandler(progname, options, file) == |