force simplifaction of paths to stop modread from breaking

This commit is contained in:
Spencer Florence 2014-12-29 19:03:45 -06:00
parent 862da31e52
commit a883f5cd40

View File

@ -18,7 +18,7 @@
;; returns true if all tests passed
(define (test-files! . paths)
(clear-coverage!)
(for ([p paths])
(for ([p (map simplify-path paths)])
(let loop ()
(define-values (loc type) (get-module-path (build-path p)))
(case type