~ chicken-core (chicken-5) cb832097a76e49cc3b23c9968ef4f732f8f4c056

commit cb832097a76e49cc3b23c9968ef4f732f8f4c056
Author:     unknown <felix@.(none)>
AuthorDate: Mon Oct 12 13:20:25 2009 +0200
Commit:     Felix <bunny351@gmail.com>
CommitDate: Wed Oct 14 16:26:08 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))))