Implement DELETE-DIRECTORY-NO-ERRORS.

diff --git a/v7/src/edwin/utils.scm b/v7/src/edwin/utils.scm
index 35c892bbc6aedc89238277bfaa513c36a7b892e6..73aa8bd664fe058386fbe6a3484ac20218c5f9fc 100644 (file)
--- 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)