From 85c8f271cbf680be346e97cec51a0e37f41c5291 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 3 Jun 2014 09:20:17 +0100 Subject: [PATCH] raco test: fix `--process` without `--fresh-user` --- .../compiler-lib/compiler/commands/test.rkt | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) diff --git a/pkgs/compiler-pkgs/compiler-lib/compiler/commands/test.rkt b/pkgs/compiler-pkgs/compiler-lib/compiler/commands/test.rkt index 8424525255..3e2ef53751 100644 --- a/pkgs/compiler-pkgs/compiler-lib/compiler/commands/test.rkt +++ b/pkgs/compiler-pkgs/compiler-lib/compiler/commands/test.rkt @@ -208,15 +208,16 @@ [current-custodian c] [current-environment-variables (environment-variables-copy (current-environment-variables))]) - (environment-variables-set! (current-environment-variables) - #"PLTUSERHOME" - (path->bytes tmp-dir)) - (environment-variables-set! (current-environment-variables) - #"TMPDIR" - (path->bytes tmp-dir)) - (environment-variables-set! (current-environment-variables) - #"PLTADDONDIR" - (path->bytes (find-system-path 'addon-dir))) + (when fresh-user? + (environment-variables-set! (current-environment-variables) + #"PLTUSERHOME" + (path->bytes tmp-dir)) + (environment-variables-set! (current-environment-variables) + #"TMPDIR" + (path->bytes tmp-dir)) + (environment-variables-set! (current-environment-variables) + #"PLTADDONDIR" + (path->bytes (find-system-path 'addon-dir)))) (apply process*/ports stdout stdin