From 85497fe230cf406cebaa14a353f2938713d58bbd Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 3 Aug 2020 16:59:45 -0600 Subject: [PATCH] bc: another test repair for `raco exe` --- pkgs/compiler-test/tests/compiler/embed/test.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/pkgs/compiler-test/tests/compiler/embed/test.rkt b/pkgs/compiler-test/tests/compiler/embed/test.rkt index e44f2526ca..7635079546 100644 --- a/pkgs/compiler-test/tests/compiler/embed/test.rkt +++ b/pkgs/compiler-test/tests/compiler/embed/test.rkt @@ -539,7 +539,10 @@ (define ext-base-dir (build-path (find-system-path 'temp-dir) - "compiled")) + (let ([l (use-compiled-file-paths)]) + (if (pair? l) + (car l) + "compiled")))) (define ext-dir (build-path ext-base-dir