From 263ae446c88ac2a309f5543eb9da8554d4374ce5 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 6 Jun 2007 19:14:55 +0000 Subject: [PATCH] Make sure that the values of *COMPILER-INPUT-PATHNAME* and *COMPILER-OUTPUT-PATHNAME* are absolute pathnames. --- v7/src/compiler/base/toplev.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/v7/src/compiler/base/toplev.scm b/v7/src/compiler/base/toplev.scm index a206eb3bb..619ede571 100644 --- 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?)) -- 2.25.1