suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Eli says it is a bad hack.

Browse Source 
svn: r16998
This commit is contained in:
Jay McCarthy 2009-11-23 18:04:15 +00:00
parent 9f57ba92f1
commit 7662ef4bc1
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/scheme/file.ss
View File

@ -65,13 +65,7 @@
(not (directory-exists? base))) (not (directory-exists? base)))
(make-directory* base)) (make-directory* base))
(unless (directory-exists? dir) (unless (directory-exists? dir)
(with-handlers ([exn:fail:filesystem? (make-directory dir))))
(lambda (x)
(unless (and (regexp-match #rx"cannot make directory:.+File exists"
(exn-message x))
(directory-exists? dir))
(raise x)))])
(make-directory dir)))))
(define (make-temporary-file [template "mztmp~a"] [copy-from #f] [base-dir #f]) (define (make-temporary-file [template "mztmp~a"] [copy-from #f] [base-dir #f])
(with-handlers ([exn:fail:contract? (with-handlers ([exn:fail:contract?