diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-04-24 10:14:50 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-04-24 10:14:50 +0000 |
| commit | fe07321807b8be45945bd445abd7d93ad9c8f513 (patch) | |
| tree | 609517c78061a0ad5a370902a6a7357852037db9 /src/boot | |
| parent | 695a6c656681918abe4b20e04470dd266b4f6bbe (diff) | |
| download | open-axiom-fe07321807b8be45945bd445abd7d93ad9c8f513.tar.gz | |
Remove duplicate junk.
Diffstat (limited to 'src/boot')
| -rw-r--r-- | src/boot/translator.boot | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/boot/translator.boot b/src/boot/translator.boot index a4c868f2..e4957c02 100644 --- a/src/boot/translator.boot +++ b/src/boot/translator.boot @@ -693,14 +693,19 @@ PSTOUT string== defaultBootToLispFile file == - CONCAT(shoeRemovebootIfNec file,'".clisp") + strconc(pathBasename file, '".clisp") + +getIntermediateLispFile(file,options) == + out := NAMESTRING getOutputPathname(options) + out ^= nil => strconc(shoeRemoveStringIfNec($faslType,out),'".clisp") + defaultBootToLispFile file translateBootFile(progname, options, file) == outFile := getOutputPathname options or defaultBootToLispFile file BOOTTOCL(file, ENOUGH_-NAMESTRING outFile) compileBootHandler(progname, options, file) == - intFile := BOOTTOCL(file, defaultBootToLispFile file) + intFile := BOOTTOCL(file, getIntermediateLispFile(file,options)) intFile => objFile := compileLispHandler(progname, options, intFile) DELETE_-FILE intFile |