From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 4 May 1994 22:57:06 +0000 (+0000)
Subject: Implement DELETE-DIRECTORY-NO-ERRORS.
X-Git-Tag: 20090517-FFI~7179
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=22fec4985fe9f08686c3ee3d82dc2a5797c3ab42;p=mit-scheme.git

Implement DELETE-DIRECTORY-NO-ERRORS.
---

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)