Handle case where temporary file is manually deleted behind Scheme's

back.

diff --git a/v7/src/runtime/infutl.scm b/v7/src/runtime/infutl.scm
index 0d2a8a119482416c71d76b8ee402c272f579e874..4b37d1a16971bafbfc6d8acce8972cd7f6af7cf8 100644 (file)
--- a/v7/src/runtime/infutl.scm
+++ b/v7/src/runtime/infutl.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: infutl.scm,v 1.55 1994/01/29 00:51:58 gjr Exp $
+$Id: infutl.scm,v 1.56 1994/03/11 05:15:08 cph Exp $
 
 Copyright (c) 1988-1994 Massachusetts Institute of Technology
 
@@ -664,7 +664,11 @@ MIT in each case. |#
        (cond ((null? entries)
              (if-not-found))
             ((and (pathname=? (caar entries) compressed-file)
-                  (cddar entries))
+                  (cddar entries)
+                  (or (file-exists? (cadar entries))
+                      (begin
+                        (set-cdr! (cdar entries) #f)
+                        #f)))
              (dynamic-wind
               (lambda () unspecific)
               (lambda () (if-found (cadar entries)))

diff --git a/v8/src/runtime/infutl.scm b/v8/src/runtime/infutl.scm
index 0d2a8a119482416c71d76b8ee402c272f579e874..4b37d1a16971bafbfc6d8acce8972cd7f6af7cf8 100644 (file)
--- a/v8/src/runtime/infutl.scm
+++ b/v8/src/runtime/infutl.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: infutl.scm,v 1.55 1994/01/29 00:51:58 gjr Exp $
+$Id: infutl.scm,v 1.56 1994/03/11 05:15:08 cph Exp $
 
 Copyright (c) 1988-1994 Massachusetts Institute of Technology
 
@@ -664,7 +664,11 @@ MIT in each case. |#
        (cond ((null? entries)
              (if-not-found))
             ((and (pathname=? (caar entries) compressed-file)
-                  (cddar entries))
+                  (cddar entries)
+                  (or (file-exists? (cadar entries))
+                      (begin
+                        (set-cdr! (cdar entries) #f)
+                        #f)))
              (dynamic-wind
               (lambda () unspecific)
               (lambda () (if-found (cadar entries)))