From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Fri, 27 Jul 1990 00:29:56 +0000 (+0000)
Subject: Fix pathnames after making altdorf the Switzerland server.
X-Git-Tag: 20090517-FFI~11297
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b3af9cbea12d6cd494ea073f7e5a96fd6a08e480;p=mit-scheme.git

Fix pathnames after making altdorf the Switzerland server.
---

diff --git a/v7/src/runtime/site.scm.unix b/v7/src/runtime/site.scm.unix
index a2872c14f..472a919c6 100644
--- a/v7/src/runtime/site.scm.unix
+++ b/v7/src/runtime/site.scm.unix
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/site.scm.unix,v 1.2 1989/10/11 15:26:52 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/site.scm.unix,v 1.3 1990/07/27 00:29:56 jinx Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -55,5 +55,12 @@ MIT in each case. |#
 (let ((add-directory-rewriting-rule!
        (access add-directory-rewriting-rule!
 	       (->environment '(runtime compiler-info)))))
-  (add-directory-rewriting-rule! "/scheme/" "/zurich/scheme/")
-  (add-directory-rewriting-rule! "/nfs/zurich/root/scheme/" "/zurich/scheme/"))
\ No newline at end of file
+  (for-each
+   (lambda (path)
+     (add-directory-rewriting-rule! path "/usr/local/lib/mit-scheme/SRC/"))
+   '("/scheme/"
+     "/altdorf/scheme"
+     "/nfs/altdorf/root/scheme/"
+     "/nfs/zurich/root/scheme/"
+     "/zurich/scheme/")))
+