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

original commit: 85c8f271cb
This commit is contained in:
Matthew Flatt 2014-06-03 09:20:17 +01:00
parent 4e8f41dcaf
commit 7117fd4e2c

View File

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