From 6099ec80b36dda95efacb075e85c36c43f97a8c5 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 21 Feb 2021 15:11:32 -0700 Subject: [PATCH] further repair for test with 'same in compiled-file-roots --- pkgs/racket-test-core/tests/racket/cm.rktl | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/pkgs/racket-test-core/tests/racket/cm.rktl b/pkgs/racket-test-core/tests/racket/cm.rktl index e6c6f7aca9..f5f615b764 100644 --- a/pkgs/racket-test-core/tests/racket/cm.rktl +++ b/pkgs/racket-test-core/tests/racket/cm.rktl @@ -193,9 +193,13 @@ (test (file-or-directory-modify-seconds (let ([dir (path-only (collection-file-path "zip.rkt" "file"))]) (for/or ([root (in-list (current-compiled-file-roots))]) - (define file (if (relative-path? root) - (build-path dir root compiled-dir "zip_rkt.zo") - (build-path (reroot-path dir root) compiled-dir "zip_rkt.zo"))) + (define file (cond + [(eq? root 'same) + (build-path dir compiled-dir "zip_rkt.zo")] + [(relative-path? root) + (build-path dir root compiled-dir "zip_rkt.zo")] + [else + (build-path (reroot-path dir root) compiled-dir "zip_rkt.zo")])) (and (file-exists? file) file)))) car