diff --git a/cover/private/raw.rkt b/cover/private/raw.rkt index ae3780a..4d324e8 100644 --- a/cover/private/raw.rkt +++ b/cover/private/raw.rkt @@ -1,7 +1,8 @@ #lang racket/base -(require racket/pretty "../cover.rkt") +(require racket/pretty racket/file "../cover.rkt") (provide generate-raw-coverage) (define (generate-raw-coverage coverage files [dir "coverage"]) + (make-directory* dir) (with-output-to-file (build-path dir "coverage.rktl") #:exists 'replace (lambda () (pretty-write (coverage-wrapper-map coverage)))))