From 31bbbfc8ad99feadf832639fe63a4313b6dfaff2 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Mon, 26 May 2014 20:51:12 +0900
Subject: [PATCH] create-directory* returns #t if the directory already exists

---
 lib/chibi/filesystem.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/chibi/filesystem.scm b/lib/chibi/filesystem.scm
index bb253e9c..96577ccd 100644
--- a/lib/chibi/filesystem.scm
+++ b/lib/chibi/filesystem.scm
@@ -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)