From e9d7aa7b93fc5cfed79b8f1d45a5dfc13b1cf78e Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 29 Nov 1993 20:49:59 +0000 Subject: [PATCH] Fix problem that caused trouble with debugging information when Scheme was installed on a different device from that on which it was built. --- v7/src/runtime/infutl.scm | 4 ++-- v8/src/runtime/infutl.scm | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/infutl.scm b/v7/src/runtime/infutl.scm index 5b3038da5..e8a60c754 100644 --- a/v7/src/runtime/infutl.scm +++ b/v7/src/runtime/infutl.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: infutl.scm,v 1.53 1993/11/21 06:56:26 cph Exp $ +$Id: infutl.scm,v 1.54 1993/11/29 20:49:59 cph Exp $ Copyright (c) 1988-93 Massachusetts Institute of Technology @@ -301,7 +301,7 @@ MIT in each case. |# (if rule (merge-pathnames (pathname-new-directory - pathname + (file-pathname pathname) (cons 'RELATIVE (list-tail (pathname-directory pathname) (length (pathname-directory (car rule)))))) diff --git a/v8/src/runtime/infutl.scm b/v8/src/runtime/infutl.scm index 5b3038da5..e8a60c754 100644 --- a/v8/src/runtime/infutl.scm +++ b/v8/src/runtime/infutl.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: infutl.scm,v 1.53 1993/11/21 06:56:26 cph Exp $ +$Id: infutl.scm,v 1.54 1993/11/29 20:49:59 cph Exp $ Copyright (c) 1988-93 Massachusetts Institute of Technology @@ -301,7 +301,7 @@ MIT in each case. |# (if rule (merge-pathnames (pathname-new-directory - pathname + (file-pathname pathname) (cons 'RELATIVE (list-tail (pathname-directory pathname) (length (pathname-directory (car rule)))))) -- 2.25.1