From 7662ef4bc145ca347a62a3a41d1d1b6fc0ea43e5 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Mon, 23 Nov 2009 18:04:15 +0000 Subject: [PATCH] Eli says it is a bad hack. svn: r16998 --- collects/scheme/file.ss | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/collects/scheme/file.ss b/collects/scheme/file.ss index 6075feccb4..624746de0c 100644 --- a/collects/scheme/file.ss +++ b/collects/scheme/file.ss @@ -65,13 +65,7 @@ (not (directory-exists? base))) (make-directory* base)) (unless (directory-exists? dir) - (with-handlers ([exn:fail:filesystem? - (lambda (x) - (unless (and (regexp-match #rx"cannot make directory:.+File exists" - (exn-message x)) - (directory-exists? dir)) - (raise x)))]) - (make-directory dir))))) + (make-directory dir)))) (define (make-temporary-file [template "mztmp~a"] [copy-from #f] [base-dir #f]) (with-handlers ([exn:fail:contract?