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

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

Browse Source 
original commit: 22dfab08fb9cdb2c7db3ae06ad28a22bca1b54d1
This commit is contained in:
Paul Graunke 2002-02-25 14:40:34 +00:00
parent 600431e2c8
commit f9487db937
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/mzlib/file.ss
View File

@ -215,7 +215,8 @@
(when (and (string? base) (when (and (string? base)
(not (directory-exists? base))) (not (directory-exists? base)))
(make-directory* base)) (make-directory* base))
(make-directory dir))) (unless (directory-exists? dir)
(make-directory dir))))
(define make-temporary-file (define make-temporary-file
(case-lambda (case-lambda