From efd8f3dc1df70b23faddbb27c57a34fe9bbbceee Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 27 May 1992 03:44:16 +0000 Subject: [PATCH] Add a patch for file-exists? in the packed binary loader so that edwin can see the packed edwin.bad. --- v7/src/runtime/load.scm | 9 +++++++-- v8/src/runtime/load.scm | 9 +++++++-- 2 files changed, 14 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/load.scm b/v7/src/runtime/load.scm index fff14c009..5fad4f74e 100644 --- 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 5f8d84b5d..bf9e97df0 100644 --- 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!)) -- 2.25.1