suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix raco test on relative paths.

Browse Source
This commit is contained in:
Vincent St-Amour 2014-01-06 18:00:29 -05:00
parent c97ce693f3
commit 3a025efcce
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/compiler-pkgs/compiler-lib/compiler/commands/test.rkt
View File

@ -735,7 +735,9 @@
#f #f
(path->collects-relative p #:cache collects-cache))) (path->collects-relative p #:cache collects-cache)))
(when (list? c) (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))))))))) (apply build-path (map bytes->path (reverse (cdr (reverse (cdr c)))))))))
(define (normalize-info-path p) (define (normalize-info-path p)