Changeset 15228 in project for chicken/branches/prerelease/files.scm


Ignore:
Timestamp:
07/17/09 14:55:57 (12 years ago)
Author:
felix winkelmann
Message:

merged r15193:15207 from trunk into prerelease; bumped version to 4.1.0rc2

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/branches/prerelease/files.scm

    r13859 r15228  
    330330        [call-with-output-file call-with-output-file] )
    331331    (lambda ext
    332       (let ([dir (or (getenv "TMPDIR") (getenv "TEMP") (getenv "TMP"))]
    333             [ext (if (pair? ext) (car ext) "tmp")])
     332      (let ((dir (or (get-environment-variable "TMPDIR")
     333                     (get-environment-variable "TEMP")
     334                     (get-environment-variable "TMP")
     335                     (file-exists? "/tmp")))
     336            (ext (if (pair? ext) (car ext) "tmp")))
    334337        (##sys#check-string ext 'create-temporary-file)
    335338        (let loop ()
Note: See TracChangeset for help on using the changeset viewer.