Ticket #63: posixunix.scm.patch

File posixunix.scm.patch, 650 bytes (added by sjamaan, 15 years ago)
  • posixunix.scm

     
    878878            (create-directory-helper name)))
    879879
    880880(define-inline (create-directory-helper-parents name)
    881     (let ((c   ""))
     881    (let* ((l (string-split name "/"))
     882           (c (car l)))
    882883        (for-each
    883884             (lambda (x)
    884885                 (set! c (string-append c "/" x))
    885886                 (create-directory-helper-silent c))
    886              (string-split name "/"))))
     887             (cdr l))))
    887888
    888889(define create-directory
    889890  (lambda (name #!optional parents?)