diff --git a/cover/cover.rkt b/cover/cover.rkt index 248fd36..bd0ab24 100644 --- a/cover/cover.rkt +++ b/cover/cover.rkt @@ -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 diff --git a/info.rkt b/info.rkt index e84b16e..0592dd0 100644 --- a/info.rkt +++ b/info.rkt @@ -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"