Update for current directories.

diff --git a/v7/src/runtime/site.scm.unix b/v7/src/runtime/site.scm.unix
index f02b608a3a9d0b57bffed03690a8075d1f08cda7..f770f93b1e976b917a5658e5a88a08d247770922 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.9 1992/05/28 22:42:48 mhwu Exp $
+$Id: site.scm.unix,v 1.10 1993/09/02 19:17:00 cph Exp $
 
-Copyright (c) 1988-1992 Massachusetts Institute of Technology
+Copyright (c) 1988-93 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -62,12 +62,9 @@ MIT in each case. |#
    (lambda (path)
      (add-directory-rewriting-rule! path "/usr/local/lib/mit-scheme/SRC"))
    '("/scheme/300"
-     "/altdorf/scheme/300"
-     "/nfs/altdorf/root/scheme/300"
+     "/nfs/martigny/scheme/300"
      "/scheme/700"
-     "/altdorf/scheme/700"
-     "/nfs/altdorf/root/scheme/700"
-     "/scheme/SONY"
-     "/nfs/altdorf/root/scheme/SONY"
-     )
-   ))
+     "/nfs/martigny/scheme/700"
+     "/usr/local/scheme/nws3250"
+     "/scheme/nws3250"
+     "/nfs/martigny/scheme/nws3250")))
\ No newline at end of file