From fca4bc34c08c5d6f5c55c786d977c3f343db78c7 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 4 May 1994 22:47:10 +0000
Subject: [PATCH] Change DELETE-FILE-NO-ERRORS to return a flag indicating its
 success.

---
 v7/src/runtime/sfile.scm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/v7/src/runtime/sfile.scm b/v7/src/runtime/sfile.scm
index ef5fee6a5..7a6256fc4 100644
--- a/v7/src/runtime/sfile.scm
+++ b/v7/src/runtime/sfile.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: sfile.scm,v 14.12 1994/03/11 05:17:51 cph Exp $
+$Id: sfile.scm,v 14.13 1994/05/04 22:47:10 cph Exp $
 
 Copyright (c) 1988-94 Massachusetts Institute of Technology
 
@@ -52,8 +52,12 @@ MIT in each case. |#
    (lambda (k)
      (bind-condition-handler (list condition-type:file-error
 				   condition-type:port-error)
-	 (lambda (condition) condition (k unspecific))
-       (lambda () (delete-file filename))))))
+	 (lambda (condition)
+	   condition
+	   (k #f))
+       (lambda ()
+	 (delete-file filename)
+	 #t)))))
 
 (define (copy-file from to)
   (let ((input-filename (->namestring (merge-pathnames from)))
-- 
2.25.1