From cf96c3c08cd435cb83f79b8b0237575438281565 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 11 Mar 1994 05:15:08 +0000 Subject: [PATCH] Handle case where temporary file is manually deleted behind Scheme's back. --- v7/src/runtime/infutl.scm | 8 ++++++-- v8/src/runtime/infutl.scm | 8 ++++++-- 2 files changed, 12 insertions(+), 4 deletions(-) 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))) -- 2.25.1