Changeset 9878 in project


Ignore:
Timestamp:
03/18/08 11:26:28 (12 years ago)
Author:
elf
Message:

fixes for possibility of nonextant current dir in canonical-directory,
test fix for chicken-setup

Location:
chicken/trunk
Files:
3 edited

Legend:

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

    r9861 r9878  
    172172(define setup-build-prefix
    173173  (make-parameter
    174    (or (getenv "CHICKEN_TMPDIR") (getenv "TMPDIR")
     174   (or (getenv "CHICKEN_TMPDIR") (getenv "TMPDIR")
     175       (getenv "TMP") (getenv "TEMP")
    175176       ((lambda (user)
    176177          (and user  (file-write-access? "/tmp")
     
    234235        (lambda (dir)
    235236          (verb dir)
    236           (create-directory/parents dir) )
     237          (system* "mkdir \"~a\"" (quotewrap dir)))
     238          ; (create-directory/parents dir) )
    237239        (lambda (dir)
    238240          (verb dir)
  • chicken/trunk/posixunix.scm

    r9331 r9878  
    932932          (getenv     getenv)
    933933          (user       current-user-name)
    934           (cwd        current-directory))
     934          (cwd        (let ((cw   current-directory))
     935                          (lambda ()
     936                              (condition-case (cw)
     937                                  (var ()    "/"))))))
    935938        (lambda (path)
    936939            (##sys#check-string path 'canonical-path)
  • chicken/trunk/posixwin.scm

    r9325 r9878  
    12461246          (sep?       (lambda (c) (or (char=? #\/ c) (char=? #\\ c))))
    12471247          (user       current-user-name)
    1248           (cwd        current-directory))
     1248          (cwd        (let ((cw   current-directory))
     1249                          (lambda ()
     1250                              (condition-case (cw)
     1251                                  (var ()    "c:\\"))))))
    12491252        (lambda (path)
    12501253            (##sys#check-string path 'canonical-path)
Note: See TracChangeset for help on using the changeset viewer.