Ticket #63: posixunix.scm.patch

posixunix.scm

@@ -878 +878 @@
             (create-directory-helper name)))
 
 (define-inline (create-directory-helper-parents name)
-    (let ((c   ""))
+    (let* ((l (string-split name "/"))
+           (c (car l)))
         (for-each
              (lambda (x)
                  (set! c (string-append c "/" x))
                  (create-directory-helper-silent c))
-             (string-split name "/"))))
+             (cdr l))))
 
 (define create-directory
   (lambda (name #!optional parents?)