From af766b8f0eca0aeebaba80c1fd7947f7904fb1fb Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 2 Feb 2008 18:40:51 +0000
Subject: 	* boot/translator.boot (translateBootFile): Tidy.

---
 src/boot/translator.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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