aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/boot/translator.boot2
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) ==