Add a patch for file-exists? in the packed binary loader so that edwin

can see the packed edwin.bad.

diff --git a/v7/src/runtime/load.scm b/v7/src/runtime/load.scm
index fff14c0098973534bc5866308cec7e10cd913f13..5fad4f74e35ee9ae89bb5c57da3cf622359e591f 100644 (file)
--- a/v7/src/runtime/load.scm
+++ b/v7/src/runtime/load.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/load.scm,v 14.34 1992/05/26 01:00:57 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/load.scm,v 14.35 1992/05/27 03:44:16 jinx Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -370,7 +370,8 @@ MIT in each case. |#
 
   (define (process-bunch alist)
     (let ((real-load load)
-         (real-fasload fasload))
+         (real-fasload fasload)
+         (real-file-exists? file-exists?))
       (fluid-let
          ((load
            (lambda (fname #!optional env syntax-table purify?)
@@ -408,6 +409,10 @@ MIT in each case. |#
                                       suppress-message?
                                       ";Pseudo-fasloading ")
                      (caddr place))))))
+          (file-exists?
+           (lambda (filename)
+             (or (find-filename fname alist)
+                 (real-file-exists? filename))))
           (flush-purification-queue! (lambda () 'done)))
         (load (caar alist))))
     (flush-purification-queue!))

diff --git a/v8/src/runtime/load.scm b/v8/src/runtime/load.scm
index 5f8d84b5d8e1496a95c3f2e32f36cb974bd85f01..bf9e97df037c20a87730b5b510b3467259ade741 100644 (file)
--- a/v8/src/runtime/load.scm
+++ b/v8/src/runtime/load.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/load.scm,v 14.34 1992/05/26 01:00:57 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/load.scm,v 14.35 1992/05/27 03:44:16 jinx Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -370,7 +370,8 @@ MIT in each case. |#
 
   (define (process-bunch alist)
     (let ((real-load load)
-         (real-fasload fasload))
+         (real-fasload fasload)
+         (real-file-exists? file-exists?))
       (fluid-let
          ((load
            (lambda (fname #!optional env syntax-table purify?)
@@ -408,6 +409,10 @@ MIT in each case. |#
                                       suppress-message?
                                       ";Pseudo-fasloading ")
                      (caddr place))))))
+          (file-exists?
+           (lambda (filename)
+             (or (find-filename fname alist)
+                 (real-file-exists? filename))))
           (flush-purification-queue! (lambda () 'done)))
         (load (caar alist))))
     (flush-purification-queue!))