~ chicken-core (chicken-5) d2f43472fb88dde5d0152bcc8fd170284ab8f006

commit d2f43472fb88dde5d0152bcc8fd170284ab8f006
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Jan 6 15:05:55 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Jan 6 15:05:55 2010 +0100

    fixed bug in create-directory

diff --git a/posixwin.scm b/posixwin.scm
index da4f41e5..be8d81e4 100644
--- a/posixwin.scm
+++ b/posixwin.scm
@@ -1171,13 +1171,13 @@ EOF
             (create-directory-helper name)))
 
 (define-inline (create-directory-helper-parents name)
-    (let* ((l   (string-split name "/\\"))
-           (c   (car l)))
-        (for-each
-             (lambda (x)
-                 (set! c (string-append c "/\\" x))
-                 (create-directory-helper-silent c))
-             (cdr l))))
+  (let* ((l   (string-split name "/\\"))
+	 (c   (car l)))
+    (for-each
+     (lambda (x)
+       (set! c (string-append c "/" x))
+       (create-directory-helper-silent c))
+     (cdr l))))
 
 (define create-directory
   (lambda (name #!optional parents?)