Make sure that the values of *COMPILER-INPUT-PATHNAME* and

*COMPILER-OUTPUT-PATHNAME* are absolute pathnames.

diff --git a/v7/src/compiler/base/toplev.scm b/v7/src/compiler/base/toplev.scm
index a206eb3bb2acd96f40fbc8d9e0878db3a9123a41..619ede5718e6f010a38e4dd148f6e5fd5a468c9a 100644 (file)
--- a/v7/src/compiler/base/toplev.scm
+++ b/v7/src/compiler/base/toplev.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: toplev.scm,v 4.73 2007/04/15 15:41:04 cph Exp $
+$Id: toplev.scm,v 4.74 2007/06/06 19:14:55 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -139,8 +139,10 @@ USA.
         (and (not (default-object? output-string)) output-string)
         (make-pathname #f #f #f #f "bin" 'NEWEST)
         (lambda (input-pathname output-pathname)
-          (fluid-let ((*compiler-input-pathname* input-pathname)
-                      (*compiler-output-pathname* output-pathname))
+          (fluid-let ((*compiler-input-pathname*
+                       (merge-pathnames input-pathname))
+                      (*compiler-output-pathname*
+                       (merge-pathnames output-pathname)))
             (let ((scode (compiler-fasload input-pathname)))
               (if (and (scode/constant? scode)
                        (not compiler:compile-data-files-as-expressions?))