Fix typo.

diff --git a/v7/src/runtime/load.scm b/v7/src/runtime/load.scm
index 5fad4f74e35ee9ae89bb5c57da3cf622359e591f..20bbc28e5cbe90269654e7eb6a3f39b96bbd0f00 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.35 1992/05/27 03:44:16 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/load.scm,v 14.36 1992/05/27 04:07:00 jinx Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -410,9 +410,9 @@ MIT in each case. |#
                                       ";Pseudo-fasloading ")
                      (caddr place))))))
           (file-exists?
-           (lambda (filename)
+           (lambda (fname)
              (or (find-filename fname alist)
-                 (real-file-exists? filename))))
+                 (real-file-exists? fname))))
           (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 bf9e97df037c20a87730b5b510b3467259ade741..97de707df6a9bf5d36f759a1fdbf3dd6006b9190 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.35 1992/05/27 03:44:16 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/load.scm,v 14.36 1992/05/27 04:07:00 jinx Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -410,9 +410,9 @@ MIT in each case. |#
                                       ";Pseudo-fasloading ")
                      (caddr place))))))
           (file-exists?
-           (lambda (filename)
+           (lambda (fname)
              (or (find-filename fname alist)
-                 (real-file-exists? filename))))
+                 (real-file-exists? fname))))
           (flush-purification-queue! (lambda () 'done)))
         (load (caar alist))))
     (flush-purification-queue!))