From fe07321807b8be45945bd445abd7d93ad9c8f513 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 24 Apr 2008 10:14:50 +0000
Subject: Remove duplicate junk.

---
 src/boot/translator.boot | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'src/boot')

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
-- 
cgit v1.2.3