diff options
| -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) == |