From f9487db937d7091a748e1f7cb3da99bb4e755fdd Mon Sep 17 00:00:00 2001 From: Paul Graunke Date: Mon, 25 Feb 2002 14:40:34 +0000 Subject: [PATCH] fixed make-directory* so it's not make-directory+ original commit: 22dfab08fb9cdb2c7db3ae06ad28a22bca1b54d1 --- collects/mzlib/file.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/mzlib/file.ss b/collects/mzlib/file.ss index 8488d43..11f16aa 100644 --- 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