~ chicken-core (chicken-5) 1744a3d19142c3a1738331d6fcfdb022105ed6a5

commit 1744a3d19142c3a1738331d6fcfdb022105ed6a5
Author:     unknown <felix@.(none)>
AuthorDate: Mon Oct 12 13:20:25 2009 +0200
Commit:     unknown <felix@.(none)>
CommitDate: Mon Oct 12 13:20:25 2009 +0200

    create-directory/helper handles forward slash in path

diff --git a/posixwin.scm b/posixwin.scm
index 7b01c92c..3a91daeb 100644
--- a/posixwin.scm
+++ b/posixwin.scm
@@ -1178,11 +1178,11 @@ EOF
             (create-directory-helper name)))
 
 (define-inline (create-directory-helper-parents name)
-    (let* ((l   (string-split name "\\"))
+    (let* ((l   (string-split name "/\\"))
            (c   (car l)))
         (for-each
              (lambda (x)
-                 (set! c (string-append c "\\" x))
+                 (set! c (string-append c "/\\" x))
                  (create-directory-helper-silent c))
              (cdr l))))