From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 11 Mar 1994 05:15:08 +0000 (+0000)
Subject: Handle case where temporary file is manually deleted behind Scheme's
X-Git-Tag: 20090517-FFI~7236
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cf96c3c08cd435cb83f79b8b0237575438281565;p=mit-scheme.git

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 0d2a8a119..4b37d1a16 100644
--- 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 0d2a8a119..4b37d1a16 100644
--- 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)))