Add mechanism to allow normalization of directory prefixes. Add

"site" file mechanism to cold load to allow this to be performed in a
site-specific manner.

diff --git a/v7/src/runtime/make.scm b/v7/src/runtime/make.scm
index 8563169781781bd979cab2df7b65c29d6b31e701..d73e06f778715c5b50ffe7a4813307de25ad5d5a 100644 (file)
--- a/v7/src/runtime/make.scm
+++ b/v7/src/runtime/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/make.scm,v 14.7 1988/12/31 05:52:59 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/make.scm,v 14.8 1988/12/31 06:05:10 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -376,13 +376,14 @@ MIT in each case. |#
    (RUNTIME EMACS-INTERFACE)
    ))
 \f
-(let ((pathname (->pathname "site")))
-  (let ((type
-        (list-search-positive load/default-types
-          (lambda (type)
-            (file-exists? (pathname-new-type type))))))
-    (if type
-       (load (pathname-new-type pathname type) '()))))
+(let ((pathname
+       (let ((pathname (->pathname "site")))
+        (list-search-positive
+            (map (lambda (type) (pathname-new-type pathname type))
+                 load/default-types)
+          file-exists?))))
+  (if pathname
+      (load pathname '())))
 
 (let ((fasload/update-debugging-info!
        (access fasload/update-debugging-info!

diff --git a/v8/src/runtime/make.scm b/v8/src/runtime/make.scm
index e194ee80ec8a7e348c9e3f8f2f3858dd75fd6afb..23b08fd6c221efceae49c488580d7678a0330b58 100644 (file)
--- a/v8/src/runtime/make.scm
+++ b/v8/src/runtime/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/make.scm,v 14.7 1988/12/31 05:52:59 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/make.scm,v 14.8 1988/12/31 06:05:10 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -376,13 +376,14 @@ MIT in each case. |#
    (RUNTIME EMACS-INTERFACE)
    ))
 \f
-(let ((pathname (->pathname "site")))
-  (let ((type
-        (list-search-positive load/default-types
-          (lambda (type)
-            (file-exists? (pathname-new-type type))))))
-    (if type
-       (load (pathname-new-type pathname type) '()))))
+(let ((pathname
+       (let ((pathname (->pathname "site")))
+        (list-search-positive
+            (map (lambda (type) (pathname-new-type pathname type))
+                 load/default-types)
+          file-exists?))))
+  (if pathname
+      (load pathname '())))
 
 (let ((fasload/update-debugging-info!
        (access fasload/update-debugging-info!