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 6457a131342ef4e521b90e70251c5d7cf27120f4..f33506cc133cea281431099801e98cf920401bd2 100644 (file)
--- 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