suzanne.soy/cover
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

now using custom-load

Browse Source
This commit is contained in:
Spencer Florence 2015-08-08 18:37:56 -05:00
parent b0585253ab
commit 5e44f7a98b
2 changed files with 5 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
cover/cover.rkt
View File

@ -29,6 +29,7 @@ information is converted to a usable form by `get-test-coverage`.
unstable/error
racket/list
racket/port
custom-load
"private/shared.rkt"
"private/file-utils.rkt"
"private/format-utils.rkt"
@ -142,19 +143,9 @@ information is converted to a usable form by `get-test-coverage`.
;; returns a value that can be set to `current-load/use-compiled`
;; forces the given files to be recompiled whenever load/use-compiled is called
(define (make-cover-load/use-compiled paths)
(define load/use-compiled (current-load/use-compiled))
(define (use-cover-compile? path)
(member (->absolute path) paths))
(define cover-load/use-compiled
(lambda (path sym)
(define abs (->absolute path))
(define lst (explode-path abs))
(define dir-list (take lst (sub1 (length lst))))
(parameterize ([current-load-relative-directory (apply build-path dir-list)])
(if (use-cover-compile? path)
((current-load) path sym)
(load/use-compiled path sym)))))
cover-load/use-compiled)
(make-custom-load/use-compiled
#:blacklist (for/list ([p (in-list paths)])
(regexp (regexp-quote p)))))
;; -> Compiler
;; makes a value sutable for current-compile, such that compile

2
info.rkt
View File

@ -6,7 +6,7 @@
(define version "2.0.3")
(define deps '(("base" #:version "6.1.1") "errortrace-lib" "rackunit-lib"
"syntax-color-lib" "compiler-lib"))
"syntax-color-lib" "compiler-lib" "custom-load"))
(define build-deps
'("racket-doc" "scribble-lib" "typed-racket-doc" "htdp-lib"