now disabling test coverage when its not needed

main.rkt

@@ -18,7 +18,8 @@
 ;; PathString * -> Boolean
 ;; Test files and build coverage map
 ;; returns true if all tests passed
-(define (test-files! . paths)
+(define (test-files!  #:coverage [coverage? #t] . paths)
+  (parameterize ([test-coverage-enabled coverage?])
     (clear-coverage!)
     (for ([p paths])
       (let loop ()
@@ -45,7 +46,7 @@
           (define submod `(submod (file ,p) test))
           (when (module-declared? submod)
             (namespace-require submod))))
-    (not tests-failed)))
+      (not tests-failed))))
 
 (define (make-better-test-compile)
   (define compile (current-compile))

raco.rkt

@@ -20,7 +20,7 @@
       #:args files
       files)))
   (printf "testing ~s\n" files)
-  (define passed (apply test-files! files))
+  (define passed (keyword-apply test-files! '(#:coverage) (list coverage?) files))
   (when coverage?
     (printf "COVERAGE!")
     (define coverage (get-test-coverage))

strace.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
-(provide annotate-top)
+(provide annotate-top test-coverage-enabled)
 (require errortrace/stacktrace
          racket/function
          racket/unit