From 3a025efcceeeae011afd6b47fa8ad8ff34e4d7ff Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Mon, 6 Jan 2014 18:00:29 -0500 Subject: [PATCH] Fix raco test on relative paths. --- pkgs/compiler-pkgs/compiler-lib/compiler/commands/test.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/pkgs/compiler-pkgs/compiler-lib/compiler/commands/test.rkt b/pkgs/compiler-pkgs/compiler-lib/compiler/commands/test.rkt index 802c591ad8..b339eacd46 100644 --- a/pkgs/compiler-pkgs/compiler-lib/compiler/commands/test.rkt +++ b/pkgs/compiler-pkgs/compiler-lib/compiler/commands/test.rkt @@ -735,7 +735,9 @@ #f (path->collects-relative p #:cache collects-cache))) (when (list? c) - (check-info/parents base + (check-info/parents (if (path? base) + (path->complete-path base) + (current-directory)) ; got 'relative (apply build-path (map bytes->path (reverse (cdr (reverse (cdr c))))))))) (define (normalize-info-path p)