fixed a bug where paths given directly caused modread to error

2014-12-29 19:21:05 -06:00 · 2014-12-29 19:21:05 -06:00 · b9a286f3ad
commit b9a286f3ad
parent a883f5cd40
1 changed files with 2 additions and 1 deletions
--- a/cover.rkt
+++ b/cover.rkt
@ -18,7 +18,8 @@
 ;; returns true if all tests passed
 (define (test-files! . paths)
  (clear-coverage!)
-  (for ([p (map simplify-path paths)])
+  (for ([path paths])
+    (define p (path->string (simplify-path (build-path (current-directory) path))))
    (let loop ()
      (define-values (loc type) (get-module-path (build-path p)))
      (case type