From 0f6cdbf9e371d2b3b9f8a5811604520f7d48d9fb Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 4 Jun 2014 19:57:57 +0100 Subject: [PATCH] raco setup: fix PLTCOMPILEDROOTS handling when checking pkg deps Closes PR 14540 --- racket/collects/setup/private/pkg-deps.rkt | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/racket/collects/setup/private/pkg-deps.rkt b/racket/collects/setup/private/pkg-deps.rkt index 6bcba6d13d..160a641d6c 100644 --- a/racket/collects/setup/private/pkg-deps.rkt +++ b/racket/collects/setup/private/pkg-deps.rkt @@ -372,12 +372,11 @@ values (for*/list ([root (in-list (current-compiled-file-roots))] [mode (in-list (use-compiled-file-paths))]) - (define dir (build-path path mode)) (define compiled-dir (cond - [(eq? root 'same) dir] - [(relative-path? root) (build-path root dir)] - [else (reroot-path dir root)])) + [(eq? root 'same) (build-path path mode)] + [(relative-path? root) (build-path path root mode)] + [else (reroot-path (build-path path mode) root)])) (and (directory-exists? compiled-dir) compiled-dir))))