Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 22:59:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

create-directory* returns #t if the directory already exists

Browse source
This commit is contained in:
Alex Shinn 2014-05-26 20:51:12 +09:00
parent 614efb4c8b
commit 31bbbfc8ad
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/chibi/filesystem.scm
View file

@ -8,7 +8,8 @@
(define (create-directory* dir . o)
(let ((mode (if (pair? o) (car o) #o755)))
(or (create-directory dir mode)
(or (file-directory? dir)
(create-directory dir mode)
(let ((slash
(string-find-right dir #\/ 0 (string-skip-right dir #\/))))
(and (> slash 0)