From 22fec4985fe9f08686c3ee3d82dc2a5797c3ab42 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 4 May 1994 22:57:06 +0000
Subject: [PATCH] Implement DELETE-DIRECTORY-NO-ERRORS.

---
 v7/src/edwin/utils.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/v7/src/edwin/utils.scm b/v7/src/edwin/utils.scm
index 35c892bbc..73aa8bd66 100644
--- a/v7/src/edwin/utils.scm
+++ b/v7/src/edwin/utils.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: utils.scm,v 1.35 1994/03/08 20:19:32 cph Exp $
+;;;	$Id: utils.scm,v 1.36 1994/05/04 22:57:06 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-94 Massachusetts Institute of Technology
 ;;;
@@ -279,6 +279,10 @@
 	   (continuation (if-error)))
        thunk))))
 
+(define (delete-directory-no-errors filename)
+  (catch-file-errors (lambda () #f)
+		     (lambda () (delete-directory filename) #t)))
+
 (define (string-or-false? object)
   ;; Useful as a type for option variables.
   (or (false? object)
-- 
2.25.1