From b3af9cbea12d6cd494ea073f7e5a96fd6a08e480 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Fri, 27 Jul 1990 00:29:56 +0000 Subject: [PATCH] Fix pathnames after making altdorf the Switzerland server. --- v7/src/runtime/site.scm.unix | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) 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/"))) + -- 2.25.1