Changeset 15761 in project for chicken


Ignore:
Timestamp:
09/06/09 20:54:23 (10 years ago)
Author:
kon
Message:

Want to see mkdir cmd.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/setup-api.scm

    r15758 r15761  
    428428    (if *windows*
    429429        (lambda (dir)
    430           (verb dir)
     430          (verb dir)
    431431          (create-directory dir #t) )
    432432        (lambda (dir)
    433           (verb dir)
    434           ($system (sprintf "~a -p ~a" *mkdir-command* (shellpath dir) ) ) ) ) ) )
     433          (verb dir)
     434          (run (,*mkdir-command* -p ,(shellpath dir)) ) ) ) ) )
    435435
    436436(define (write-info id files info)
Note: See TracChangeset for help on using the changeset viewer.