fixed breaking absolute paths

2014-12-29 19:23:30 -06:00 · 2014-12-29 19:23:30 -06:00 · 4c82d2b92b
commit 4c82d2b92b
parent b9a286f3ad
1 changed files with 4 additions and 1 deletions
--- a/cover.rkt
+++ b/cover.rkt
@ -19,7 +19,10 @@
 (define (test-files! . paths)
  (clear-coverage!)
  (for ([path paths])
-    (define p (path->string (simplify-path (build-path (current-directory) path))))
+    (define p
+      (if (absolute-path? path)
+          path
+          (path->string (simplify-path (build-path (current-directory) path)))))
    (let loop ()
      (define-values (loc type) (get-module-path (build-path p)))
      (case type