Ticket #63: posixunix.scm.patch
File posixunix.scm.patch, 650 bytes (added by , 15 years ago) |
---|
-
posixunix.scm
878 878 (create-directory-helper name))) 879 879 880 880 (define-inline (create-directory-helper-parents name) 881 (let ((c "")) 881 (let* ((l (string-split name "/")) 882 (c (car l))) 882 883 (for-each 883 884 (lambda (x) 884 885 (set! c (string-append c "/" x)) 885 886 (create-directory-helper-silent c)) 886 ( string-split name "/"))))887 (cdr l)))) 887 888 888 889 (define create-directory 889 890 (lambda (name #!optional parents?)