fix improperly loading module-suffixes

2015-10-22 12:23:37 -05:00 · 2015-10-22 12:23:37 -05:00 · 2940a186ab
commit 2940a186ab
parent 8370643309
1 changed files with 4 additions and 1 deletions
--- a/cover/raco.rkt
+++ b/cover/raco.rkt
@ -243,7 +243,10 @@
  (case new-omits
    [(#f) null]
    [(all) (->absolute (current-directory))]
-    [else (map (lambda (x) (if (regexp? x) x (->absolute x)))
+    [else (map (lambda (x)
+                 (cond [(regexp? x) x]
+                       [(bytes? x) (regexp (bytes->string/locale x))]
+                       [else (->absolute x)]))
               new-omits)]))

 (define (path-add-argv path argvs)