aboutsummaryrefslogtreecommitdiff
path: root/src/boot/translator.boot.pamphlet
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2007-12-03 18:52:44 +0000
committerdos-reis <gdr@axiomatics.org>2007-12-03 18:52:44 +0000
commit75508c6a271684806384718967765bb6c62e0d84 (patch)
tree76f200cdf7a3adb4ef948283598e94076708388a /src/boot/translator.boot.pamphlet
parentcb0d95bad4daf04a8e91277f0bc2f5348a1aa9de (diff)
downloadopen-axiom-75508c6a271684806384718967765bb6c62e0d84.tar.gz
* translator.boot.pamphlet (translateBootFile): Adjust call to
getOutputPathname.
Diffstat (limited to 'src/boot/translator.boot.pamphlet')
-rw-r--r--src/boot/translator.boot.pamphlet6
1 files changed, 2 insertions, 4 deletions
diff --git a/src/boot/translator.boot.pamphlet b/src/boot/translator.boot.pamphlet
index f64e35e5..50e146aa 100644
--- a/src/boot/translator.boot.pamphlet
+++ b/src/boot/translator.boot.pamphlet
@@ -781,7 +781,7 @@ defaultBootToLispFile file ==
CONCAT(shoeRemovebootIfNec file,'".clisp")
translateBootFile(progname, options, file) ==
- outFile := getOutputPathname(options, defaultBootToLispFile file)
+ outFile := getOutputPathname(options)
BOOTTOCL(file, ENOUGH_-NAMESTRING outFile)
compileBootHandler(progname, options, file) ==
@@ -1881,9 +1881,7 @@ associateRequestWithFileType(Option '"compile", '"boot",
(PROG (|outFile|)
(RETURN
(PROGN
- (SETQ |outFile|
- (|getOutputPathname| |options|
- (|defaultBootToLispFile| |file|)))
+ (SETQ |outFile| (|getOutputPathname| |options|))
(BOOTTOCL |file| (ENOUGH-NAMESTRING |outFile|))))))
(DEFUN |compileBootHandler| (|progname| |options| |file|)