suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

raco test: fix --process without --fresh-user

Browse Source
This commit is contained in:
Matthew Flatt 2014-06-03 09:20:17 +01:00
parent 0b5fbc17c9
commit 85c8f271cb
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
pkgs/compiler-pkgs/compiler-lib/compiler/commands/test.rkt
View File

@ -208,15 +208,16 @@
[current-custodian c] [current-custodian c]
[current-environment-variables (environment-variables-copy [current-environment-variables (environment-variables-copy
(current-environment-variables))]) (current-environment-variables))])
(environment-variables-set! (current-environment-variables) (when fresh-user?
#"PLTUSERHOME" (environment-variables-set! (current-environment-variables)
(path->bytes tmp-dir)) #"PLTUSERHOME"
(environment-variables-set! (current-environment-variables) (path->bytes tmp-dir))
#"TMPDIR" (environment-variables-set! (current-environment-variables)
(path->bytes tmp-dir)) #"TMPDIR"
(environment-variables-set! (current-environment-variables) (path->bytes tmp-dir))
#"PLTADDONDIR" (environment-variables-set! (current-environment-variables)
(path->bytes (find-system-path 'addon-dir))) #"PLTADDONDIR"
(path->bytes (find-system-path 'addon-dir))))
(apply process*/ports (apply process*/ports
stdout stdout
stdin stdin