From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 15 Aug 1991 19:13:42 +0000 (+0000)
Subject: Fix rewriting paths to accomodate new directory structure.
X-Git-Tag: 20090517-FFI~10364
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=682f80b08ade1124cb6712a2e25529f59ef1e564;p=mit-scheme.git

Fix rewriting paths to accomodate new directory structure.
---

diff --git a/v7/src/runtime/site.scm.unix b/v7/src/runtime/site.scm.unix
index 6457a1313..f33506cc1 100644
--- a/v7/src/runtime/site.scm.unix
+++ b/v7/src/runtime/site.scm.unix
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/site.scm.unix,v 1.5 1991/03/02 04:13:56 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/site.scm.unix,v 1.6 1991/08/15 19:13:42 jinx Exp $
 
-Copyright (c) 1988 Massachusetts Institute of Technology
+Copyright (c) 1988-1991 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -61,11 +61,9 @@ MIT in each case. |#
   (for-each
    (lambda (path)
      (add-directory-rewriting-rule! path "/usr/local/lib/mit-scheme/SRC/"))
-   '("/scheme/"
-     "/altdorf/scheme"
-     "/nfs/altdorf/root/scheme/"
-     "/scheme/850/"
-     "/altdorf/scheme/850"
-     "/nfs/altdorf/root/scheme/"
-     "/nfs/zurich/root/scheme/"
-     "/zurich/scheme/")))
\ No newline at end of file
+   '("/scheme/300/"
+     "/altdorf/scheme/300/"
+     "/nfs/altdorf/root/scheme/300/"
+     "/scheme/800/"
+     "/altdorf/scheme/800"
+     "/nfs/altdorf/root/scheme/800/")))
\ No newline at end of file