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 
original commit: 85c8f271cb
This commit is contained in:
Matthew Flatt 2014-06-03 09:20:17 +01:00
parent 4e8f41dcaf
commit 7117fd4e2c
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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