fixed directory creation in raw format

2016-01-11 16:22:03 -06:00 · 2016-01-11 16:22:03 -06:00 · 5acbb1288e
commit 5acbb1288e
parent 846c893b32
1 changed files with 2 additions and 1 deletions
--- 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)))))