Changeset 15758 in project for chicken/trunk/posixunix.scm


Ignore:
Timestamp:
09/06/09 20:40:11 (10 years ago)
Author:
Kon Lovett
Message:

Forgot about "sudo" mode with 'create-directory/parents'. 'string-null?' is srfi-13 routine - rplcd w/ '(string=? "" ...)'.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/posixunix.scm

    r15733 r15758  
    888888
    889889(define create-directory
    890   (lambda (name #!optional parents?)
    891     (##sys#check-string name 'create-directory)
    892     (if (not (string-null? name))
    893         (let ((b (create-directory-check name)))
    894           (if (not b)
    895               (let ((parents
    896                      (or (and parents? (make-parents name))
    897                          '())))
    898                 (for-each create-directory parents)
    899                 (create-directory-helper name))
    900               ))
    901         )))
    902 
     890  (let ((string=? string=?))
     891    (lambda (name #!optional parents?)
     892      (##sys#check-string name 'create-directory)
     893      (if (not (string=? "" name))
     894          (let ((b (create-directory-check name)))
     895            (if (not b)
     896                (let ((parents
     897                       (or (and parents? (make-parents name))
     898                           '())))
     899                  (for-each create-directory parents)
     900                  (create-directory-helper name))
     901                ))
     902          ))))
    903903
    904904(define change-directory
Note: See TracChangeset for help on using the changeset viewer.