From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Fri, 23 Aug 1991 02:04:17 +0000 (+0000)
Subject: Use relative pathnames so handling 300's and 800's is identical.
X-Git-Tag: 20090517-FFI~10323
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0fe0eacb54b607e7835f2cb0321c8f6b52e3c7c2;p=mit-scheme.git

Use relative pathnames so handling 300's and 800's is identical.
---

diff --git a/v7/src/6001/6001.sf b/v7/src/6001/6001.sf
index 174a9f776..b6fd1a891 100644
--- a/v7/src/6001/6001.sf
+++ b/v7/src/6001/6001.sf
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/6001/6001.sf,v 1.2 1991/08/22 20:32:35 arthur Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/6001/6001.sf,v 1.3 1991/08/23 02:04:17 arthur Exp $
 
 Copyright (c) 1991 Massachusetts Institute of Technology
 
@@ -39,7 +39,7 @@ MIT in each case. |#
 
 ;; Guarantee that the package modeller is loaded.
 (if (not (name->package '(CROSS-REFERENCE)))
-    (with-working-directory-pathname "/scheme/800/cref"
+    (with-working-directory-pathname "../cref"
       (lambda ()
 	(load "make"))))