Changeset 9021 in project


Ignore:
Timestamp:
02/26/08 11:04:26 (12 years ago)
Author:
Ivan Raikov
Message:

Further tweaks to the selection of default build dir in chicken-setup

File:
1 edited

Legend:

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

    r8901 r9021  
    158158(define setup-build-prefix
    159159  (make-parameter
    160    (or (getenv "TEMP") (getenv "TMP")
    161        ((lambda (x) (and x (make-pathname  x "chicken-build"))) (getenv "HOME"))
     160   (or (getenv "TMP") (getenv "TEMP") (getenv "TMPDIR") (getenv "TEMPDIR")
     161       ((lambda (home user)
     162          (and home user (make-pathname  home (conc "chicken-" *major-version* "-" user))))
     163        (getenv "HOME") (getenv "USER"))
    162164       ".")))
    163165(define setup-download-directory  (make-parameter (conc (setup-build-prefix) "/downloads")))
Note: See TracChangeset for help on using the changeset viewer.