Changeset 12543 in project for chicken


Ignore:
Timestamp:
11/17/08 05:09:18 (11 years ago)
Author:
Ivan Raikov
Message:

fetch-file now creates the download directory before doing anything else.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/branches/chicken-3/chicken-setup.scm

    r11938 r12543  
    10681068
    10691069(define (fetch-file ext)
     1070  (if (not (file-exists? (setup-download-directory)))
     1071      (create-directory (setup-download-directory)))
    10701072  (and (or *dont-ask*
    10711073           (yes-or-no?
Note: See TracChangeset for help on using the changeset viewer.