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

new Create Executable in DrScheme

Browse Source 
svn: r3178

original commit: 09d6dd95cfd48cb0418996699ce5849ddc5b315a
This commit is contained in:
Matthew Flatt 2006-06-02 11:52:48 +00:00
parent db7833c8e3
commit 1f516021d4
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mzlib/file.ss
View File

@ -240,8 +240,8 @@
"format string for 1 argument" "format string for 1 argument"
template))]) template))])
(format template void)) (format template void))
(unless (or (not copy-from) (path-string? 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, or #f" copy-from)) (raise-type-error 'make-temporary-file "path, valid-path string, 'directory, or #f" copy-from))
(unless (or (not base-dir) (path-string? base-dir)) (unless (or (not base-dir) (path-string? base-dir))
(raise-type-error 'make-temporary-file "path, valid-path, string, or #f" base-dir)) (raise-type-error 'make-temporary-file "path, valid-path, string, or #f" base-dir))
(let ([tmpdir (find-system-path 'temp-dir)]) (let ([tmpdir (find-system-path 'temp-dir)])
@ -256,7 +256,9 @@
(loop (- s (random 10)) (loop (- s (random 10))
(+ ms (random 10))))]) (+ ms (random 10))))])
(if copy-from (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))) (close-output-port (open-output-file name)))
name))))] name))))]
[(template copy-from) (make-temporary-file template copy-from #f)] [(template copy-from) (make-temporary-file template copy-from #f)]