From 1f516021d4b4e3a5605e0ba2bffe7320bdc6e692 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 2 Jun 2006 11:52:48 +0000 Subject: [PATCH] new Create Executable in DrScheme svn: r3178 original commit: 09d6dd95cfd48cb0418996699ce5849ddc5b315a --- collects/mzlib/file.ss | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/collects/mzlib/file.ss b/collects/mzlib/file.ss index a4dca62..60f1c09 100644 --- a/collects/mzlib/file.ss +++ b/collects/mzlib/file.ss @@ -240,8 +240,8 @@ "format string for 1 argument" template))]) (format template void)) - (unless (or (not copy-from) (path-string? copy-from)) - (raise-type-error 'make-temporary-file "path, valid-path string, or #f" copy-from)) + (unless (or (not copy-from) (path-string? copy-from) (eq? copy-from 'directory)) + (raise-type-error 'make-temporary-file "path, valid-path string, 'directory, or #f" copy-from)) (unless (or (not base-dir) (path-string? base-dir)) (raise-type-error 'make-temporary-file "path, valid-path, string, or #f" base-dir)) (let ([tmpdir (find-system-path 'temp-dir)]) @@ -256,7 +256,9 @@ (loop (- s (random 10)) (+ ms (random 10))))]) (if copy-from - (copy-file copy-from name) + (if (eq? copy-from 'directory) + (make-directory name) + (copy-file copy-from name)) (close-output-port (open-output-file name))) name))))] [(template copy-from) (make-temporary-file template copy-from #f)]