Changeset 15758 in project for chicken/trunk/setup-api.scm


Ignore:
Timestamp:
09/06/09 20:40:11 (10 years ago)
Author:
kon
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/setup-api.scm

    r15728 r15758  
    422422  (make-parameter (or (get-environment-variable "CHICKEN_INSTALL_PREFIX") #f)))
    423423
    424 (define (create-directory/parents dir)
    425   (when (setup-verbose-mode) (printf "  creating directory `~a'~%~!" dir))
    426   (create-directory dir #t) )
     424(define create-directory/parents
     425  (let ()
     426    (define (verb dir)
     427      (when (setup-verbose-mode) (printf "  creating directory `~a'~%~!" dir)) )
     428    (if *windows*
     429        (lambda (dir)
     430          (verb dir)
     431          (create-directory dir #t) )
     432        (lambda (dir)
     433          (verb dir)
     434          ($system (sprintf "~a -p ~a" *mkdir-command* (shellpath dir) ) ) ) ) ) )
    427435
    428436(define (write-info id files info)
Note: See TracChangeset for help on using the changeset viewer.