From: Guillermo J. Rozas Date: Wed, 27 May 1992 04:07:00 +0000 (+0000) Subject: Fix typo. X-Git-Tag: 20090517-FFI~9339 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2381b67ae6e85528296df05b1fb57b3b2b9b4ca9;p=mit-scheme.git Fix typo. --- diff --git a/v7/src/runtime/load.scm b/v7/src/runtime/load.scm index 5fad4f74e..20bbc28e5 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.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 bf9e97df0..97de707df 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.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!))