fixed make-directory* so it's not make-directory+

original commit: 22dfab08fb9cdb2c7db3ae06ad28a22bca1b54d1
2002-02-25 14:40:34 +00:00 · 2002-02-25 14:40:34 +00:00 · f9487db937
commit f9487db937
parent 600431e2c8
1 changed files with 2 additions and 1 deletions
--- a/collects/mzlib/file.ss
+++ b/collects/mzlib/file.ss
@ -215,7 +215,8 @@
      (when (and (string? base)
 		 (not (directory-exists? base)))
 	(make-directory* base))
-      (make-directory dir)))
+      (unless (directory-exists? dir)
+        (make-directory dir))))

  (define make-temporary-file
    (case-lambda